Robert Tolksdorf 


Profitips und Techniken 

für 

App 1 e-LJCSD-Pas cal 


Reproduktion der Papierausgabe von 1985 
Copyright © Robert Tolksdorf 
Bismarckstr. 18 
14109 Berlin 



Dieses Werk ist lizenziert unter einer 

Creative Commons Namensnennung - Nicht kommerziell - Keine Bearbeitungen 4.0 
International Lizenz. 

http://creativecommons.Org/licenses/by-nc-nd/4.0/ 


http://www.robert-tolksdorf.de 



! CIP-Kurztitelaufnähme der Deutschen Bibliothek I 

• Toiksdorf^ Robert^ ! 

! Profitips und Techniken für Apple-ÜCSD-Pascal / ! 

! Rober Tolksdorf. - Gensingen : Luther, 1905 ! 

! ISBN 3-620-00103-0 ! 

!_J._ i 



Digital unterschrieben von Robert Tolksdorf 
DN: c=DE, cn=Robert Tolksdorf, 


Tolksdorf 


givenName=Robert Vinzenz, sn=Tolksdorf, 
serialNumber=DTRWM685137337394922, 
title=Dr. 


Datum: 2018.03.28 15:07:34 +02'00' 


http://www.robert-tolksdorf.de 



I rilnsu 1 t, svö jt z & ± chn ± s 

Seite 

1. Einleitung. 5 

2. Utilities für das Betriebssystem. 6 

2.1 Block-Editor. 6 

2.2 Das Directory. 13 

2.3 PASH: Ein alternativer Filer. 17 

2.4 Kein Absturz bei segmentierten Programmen. 33 

2.5 Wie man den DOS 3.3 Catalog liest. 37 

2.6 POS 1,1 und DOS 3.3 auf einer Diskette. 44 

2.7 Foto, ein neuer Filetyp. 50 

2.6 Textfiles und Codefiles. 52 

2.9 Wenn READLN zu langsam ist. 56 

2.10 Mehr Platz auf den Disketten. 61 

3. Utilities für Apple-Pascal. 63 . 

3.1 "PEEK" und "POKE"* auch in Pascal. 63 

3.2 Wo finde ich was ? - eine besondere Liste. 65 

3.3 Was steht wo - eine Anwendung. 74 

3.4 Das Datum. 77 

3.5 GETKEY - Wir umgehen den Tastaturpuffer. 61 

3.6 Manipulationen am Eingabepuffer. 62 

3.7 Ein Maschinencode Monitor für Pascal. 87 

3.8 Wie man einen Reset abfängt. 93 

4. Text und Graphik. 99 

4.1 Ein Graphikeditor. 99 

4.2 SYSTEM. CHARSET wird editiert. 111 

4.3 Wieso nicht Lores-Graphik ?. 119 

4.4 Shapes in der Lores-Graphik. 125 

4.5 Editor-Marken verändern und löschen. 128 

4.6 Wie groß ist mein Text ?. 132 


http://www.robert-tolksdorf.de 































1. Einleitung 

Dieses Buch wendet sich an den fortgeschrittenen Apple Pascal Pro¬ 
grammierer. Es soll kein Lehrbuch sein, vielmehr sollen hier die 
Tips und Techniken beschrieben werden, die es ermöglichen, das 
System voll auszunutzen. Es bietet das notwendige Wissen, um auch 
intern in das System einzugreifen. Es gibt darüber wenig Litera¬ 
tur, da dies im Grunde genommen der Pascal-Philosophie widei— 
spricht. Jedoch stößt man leicht an Grenzen, die es eigentlich 
garnicht geben müßte. Man will Dinge realisieren, die z.B. in 
Applesoft-Basic möglich und verbreitet sind. Hier schrankt das 
System den Programmierer ein. Hier setzt dieses Buch an, indem das 
Know-How vermittelt wird, daß eben nicht in den Handbüchern steht. 

Das Buch ist in drei Abschnitte gegliedert. Im Ersten wird auf das 
Betriebssystem eingegangen. Es wird beschrieben, wie man direkten 
Zugriff auf die Diskette und auf das Directory erhält. Es wird 
eine Brücke geschlagen zwischen Apple-DOS 3.3 und dem Pascal-Be¬ 
triebssystem. Schließlich wird auf das Format der Filetypen einge¬ 
gangen und ein neuer hinzugefügt. 

Der zweite Abschnitt geht näher auf die Programmierung in Pascal 
ein. Hier ist eine Zusammenstellung aller Systemroutinen und deren 
Adressen enthalten. Mit erweiterten "PEEK/POKE" Routinen erhält 
man Zugriff auf die internen Systemvariablen. Es wird beschrieben, 
wie man den Tastaturpuffer umgeht, und wie man Zeichen in diesen 
ohne Tastatureingabe setzt. Schließlich wird dargestellt, wie man 
auch unter Pascal das Drücken der Reset-Taste abfangen kann. 

Der dritte Abschnitt geht auf Grafik und Text ein. Es werden Pro¬ 
gramme vorgestellt zum Editieren von Grafiken und zum Verändern 
des Graphikzeichensatzes. Schließlich wird die unter Basic bekannte 
Blockgrafik auch in Pascal ermöglicht, wobei auch Shapes reali¬ 
siert werden. Es wird ein Mangel des Text-Editors beseitigt, und 
es wird ein Programm zum schnellen Messen der Textgröße verwirk¬ 
licht. 

In den Kapiteln wird zunächst geschildert, welches Problem gelöst 
werden soll, und wie der Weg dorthin aussieht. Daran schließt sich 
ein fertiges Programmlisting an. Im Zusammenhang mit den Erläute¬ 
rungen sollte es dem Programmierer möglich sein, die Programme 
speziell zu verändern, oder in seinen Projekten weiterzuverwenden. 

Es soll an dieser Stelle darauf hingewiesen werden, daß das Ein¬ 
greifen in das System nicht der Pascal-Philosophie entspricht. Sie 
fordert, daß ein Programm, daß auf dem Rechner A unter Pascal 
läuft, auf den Rechner B ohne Anpassungen übertragen werden kann. 
Verwendet man die hier geschilderten Tricks, so wird dies nicht 
immer der Fall sein. 

Wie der Leser mit diesem Buch umgeht, bleibt ihm überlassen. Es 
ist nicht nötig, das Buch von vorne nach hinten durchzuarbeiten. 
Es ist jedoch zu empfehlen, zunächst den erläuternden Text in 
jedem Kapitel zu lesen und dann erst das Programm einzutippen. 

Dabei viel Spaß ! 
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2. Utilities für das Betriebssystem 


In den folgenden Kapiteln sollen einige Utilities vorgestellt wer¬ 
den, die die Struktur und die Feinheiten des Pascal Operating Sys¬ 
tems (im folgenden M POS M genannt) ausnutzen, und damit neue Möglich¬ 
keiten bieten. Es geht hier ausschließlich um die Arbeit mit den 
Disk-Laufwerken, d.h. um die Behandlung von Files und Daten auf Dis¬ 
ketten. Voraussetzung ist, daß dem Leser die Arbeitsweise von POS 
bekannt ist, und er mit den Dienstprogrammen, wie Editor oder Filer 
umgehen kann. 


2.1 Block-Editor 

Disketten sind gewöhnlich in sogenannte Blöcke und Sektoren einge¬ 
teilt. Sie stellen die kleinste Dateneinheit dar, die von der Floppy 
gelesen werden kann. 

Mit Sektoren bezeicherven wir die Datenmenge, die auf einmal von der 
Diskette gelesen wird. Sie ist größtenteils von dem verwendeten 
Laufwerk abhängig. Ein logischer Block ist die Datenmenge, mit der 
das Betriebssystem arbeitet. Diese beiden Einheiten sind von einan¬ 
der unabhängig und müssen nicht die gleiche Größe haben. Es ist Auf¬ 
gabe des Betriebssystems, dafür zu sorgen, daß die richtige Anzahl 
von Sektoren für einen logischen Block gelesen wird. 

Mit logischen Blöcken ist die Datenmenge gemeint, die vom Betriebs¬ 
system auf einmal gelesen wird. Die Größe dieser Blöcke hängt vom 
verwendeten Betriebssystem ab. So gibt es Blöcke, die 126 Byte ent¬ 
halten (z.B. CP/M), das Apple-DOS 3.3 verwendet Blöcke mit 256 Bytes 
und POS schließlich kennt 512 Bytes große Diskettenabschnitte. Es 
gibt unter anderen Betriebssystemen auch größere Einheiten, wie 1024 
Bytes. 

In unserem Fall, der Arbeit mit einer Apple-Maschine beträgt die 
Sektorengröße des Laufwerks 256 Bytes und die der logischen Blöcke 
von POS 512 Bytes. Uns interessiert im folgenden nur die Verwendung 
von Blöcken. Das Umrechnen in Sektoren überlassen wir dem Betriebs¬ 
system. 

Mit einem Block-Editor wollen wir es uns ermöglichen, auf jedes Byte 
eines Blocks einer Pascal-Diskette zuzugreifen, es zu verändern und 
'den Block wieder zurückzuschreiben. Wir können damit die Struktur 
der Diskettenorganisation erforschen, oder wir können Veränderungen 
in Programmen vornehmen. Bei letzterem liegt unser Augenmerk darauf, 
daß z.B. in einem größeren Programm eine falsch geschriebene Bild¬ 
schirmmeldung ohne Neu-Compi1ierung berichtigt werden kann. Änderun¬ 
gen in den Programmen selber sollten nicht durchgeführt werden. 

Unsere allgemeine Zielsetzung steht nun fest, wir sammeln nun, was 
wir von unserer Lösung erwarten. 

Wir wollen eine Ausgabe des Block in hexadezimaler Schreibweise und 
in ASCII, d.h in alphanumerischen Zeichen (ASCII «* American Standard 
Code for Information Interchange) beinhaltet. Dann wollen wir natür¬ 
lich einen beliebigen Block lesen und schreiben können. Weiterhin 
sollte der ganze Block mit einem bestimmten Wert zu füllen und 
schließlich jedes einzelne Byte zu verändern sein. 
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Der Editor soll einen guten Überblick über einen Block bieten. Also 
muß das Schirmbild so gut wie möglich sein. Wir haben 512 Bytes in 
hexadezimaler Schreibweise auszugeben. Da diese zusammen mit einer 
ASCII-Ausgabe nicht genug Platz auf dem Bildschirm haben, müssen wir 
die Ausgabe teilen. Es werden immer 256 Bytes gleichzeitig darges¬ 
tellt. Der Benutzer hat dann über ein Kommando die Möglichkeit, 
zwischen der ersten und der zweiten Hälfte hin und her zu schalten. 

Die 256 Bytes werden in 16 Zeilen zu je 16 Bytes darstellt. Da auch 
eine ASCII-Ausgabe verlangt wird, hängen wir einen 16 Zeichen langen 
String an. Am Anfang der Zeile steht eine Adresse, die die Position 
der Bytes in dem 512 Bytes großen Feld angibt. Damit ergibt sich 
folgendes Zeilenlayout: 


000: 00 01 02 03 04 05 06 .. 0C 0D 0E 0F !'*«$%&' <) 0*=! "ÖS 

Pos. Bytes Pos+0..15 16 Zeichen in ASCII 


Wir haben also schon 16 Zeilen belegt, es bleiben uns noch 6 Zeilen 
übrig, die wir frei verwenden können. Eine Zeile nehmen wir als 
Menüzeile, eine als Informationszeile und eine als Eingabezeile. 

Um die Information lesen und schreiben zu können benutzen wir die 
Standard-Prozeduren "UNITREAD" und "UNITWRITE". Im Pascal-Handbuch 
ist die Bedeutung der Parameter erläutert. Wir können eine vom 
Benutzer angegebene Blocknummer einsetzen und den Inhalt des Blocks 
in ein Feld einiesen. 

Das Füllen des Blocks mit einem bestimmten Wert ist einfach. Der 
Benutzer gibt eine Zahl ein, das ARRAY wird mit diesem Wert aufge- 
füllt, und der Benutzer braucht nur noch den Block zurückzuschrei¬ 
ben. 


Zum Verändern einzelner Bytes ist es nötig, daß der Benutzer angibt, 
welches Byte er ändern will, und einen Wert, der diesem Byte zuge¬ 
wiesen werden soll. Daraufhin wird das Feld geändert und auf dem 
Schirm die hexadezimale und die ASCII-Ausgabe erneuert. 

Schließlich werden noch zwei zusätzliche Kommandos eingebaut. Als 
erstes ein Kommando zum Verlassen des Programms und dann eine Hilfs- 
Funktion, die eine Kommandoliste ausgibt. 


Wichtige Variablen 

"BLOCK" : 512 Byte großes Feld zur Aufnahme eines Blocks 
Wichtige Prozeduren 


"HOLECHAR" 


"HOLESTRING" 


Liest ein Zeichen von der Tastatur ein, 
das aus "OKSET" sein muß. So werden 
schon bei der Eingabe nicht vorhandene 
Kommandos ausgeschlossen. 

Liest einen String von der Tastatur 

ein. Die Zeichen müssen aus "ALLOWED" 
sein und die Eingabe hat die maximale 
Länge "LEN". 


"BYTTOHEX" 


Wandelt ein Byte in einen String 
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"HEXTOINT” 


M LESEBLOCK" 

M SCHREIBBLOCK" 


hexadezimaler Schreibweise um. 

Wandelt einen String, der eine 

hexadezimale Zahl enthält in einen 
Integerwert um. 

Liest mit "UNITREAD" einen Block von 
der Diskette in "BLOCK" ein. 

Schreibt "BLOCK" mit "UNITWRITE" in 
einen Block auf der Diskette. 


Kommando1iste 

"O" : obere 256 Bytes des Blocks anzeigen 
H ü” : untere 256 Bytes des Blocks anzeigen 
M L" : einen Block von der Diskette lesen 
"S M : den Block auf die Diskette schreiben 
"N" : den gleichen Block nochmals lesen 
"A“ : den Block an die gleiche Stelle auf der Diskette 
zurückschreiben 
" + " : nächsten Block lesen 
: Block davor lesen 
"V" : ein Byte verändern 
“F" : Block mit einem Wert füllen 
" ? "» 

"/" : Kommandoliste ausgeben 
"E" : Blockeditor verlassen 


Pr og r SLZtizn " B1ÜD IT- TEXT " 

Programm blockedit; 
type 

setofchar = set of char; 


var 

hcme,cr,bs,eol,bel1 : char; 

hexdigit : packed arrayCO..153 of char; 

blockipacked arrayCO..5113 of 0..255; 

blkno:integer; 

c:char; 

cmdset:setofchar; 
oben:boolean; 


< Initialisiert Variablen und bringt den > 
{ Darstellungsrahmen auf den Bildschirm > 


procedure init; 
var i:integer; 
begin 

eol:=chr(29); 
bell:=chr(7); 
cr:=chr(13); 
bs:=chr(8); 
home:=chr(12); 

hexdigit:-'0123456789ABCDEF'; 
cmdset:«C'0','o','U','u', 'L* ,'1', 
'V','v', 


's # /N' »'n' ,'A' t'a' f 
'f'.'E'/e','?'//']; 


write(home); 
gotoxy(0,2); 

writeC' Adr 00 01 02 03 04 05 06 07 08 09 0A OB 0C 0D 0E 0F'); 


gotoxy(0,4); 
for i:= 0 to 15 do 
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writelnC' ',hexdigitCiD,'0'); 
blkno: s Q; 
end j 

function hole_char(okset:setofchar)schar; < liest ein Zeichen ein, das > 
var < in okset enthalten sein «u" > 

ch : char; 
gut : boolean; 
begin 
repeat 

read(keyboard,ch); 
if eoln(keyboard) then ch:=cr; 
gut : = ch in okset; 
if not gut then writeCbell) 

eise if ch in C' '..chr(125)D then write(ch); 
until gut; 
hole_char:«ch; 
end; 

procedure uarte_auf_ret; < Wartet auf die Eingabe eines returns > 

var c:char; 

begin 

gotoKy(0,23); 

write('Bitte <ret> druecken'); 
c:=hole_char<CcrD); 
end; 

procedure fehler; < Gibt Fehlermeldung aus > 

var isinteger; 

begin 

gotoxy(0,21); 

urite(bel1,'1/0 Fehler ***'); 
for i:= 1 to 3000 do; 
gotoxy(0,21); 
write(eol); 
end; 

procedure hole_string(var s:string; allowed:setofchar; len:integer); 
var cichar; { Liest des String s ein. Seine maximale Laenge steht in len )• 

hilfsssstring; < Alle Zeichen muessen aus allowed sein. > 

begin 
s:»"; 
hilf bb:*' 
repeat 

c: a hole_char(allowed+Cbs,cr3); 

if c*=bs then if length(s)=0 then write(bell) 

eise 

begin 

s:*copy(s,l,length(s)-l)| 
urite(bs,' # »bs); 
end; 

if c in allowed then if length(s)-len then write(bel1,bs,' ',bs) 

eise begin 

hilfBsC13: a c; 
sj-concat(s,hi1fss); 
end; 

if c*cr then if length(s)=0 then 

begin 

write(bel1); 

c:=' 

end; 
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until c«cr; 
end; 

function hole_blkno(prompt:string):integer; < liest eine Blocknummer ein > 
var i,nura:integer; 
ststring; 
ok:boolean; 

begin 

write< prompt,eo 1); 
repeat 

hole_string(s,C'0'.,'9'3,3); 
num:=0; 

for i:«l to length(s) do num:«num*10+(ord(sCi3)-48); 
if num<280 then ok:=true 
eise begin 

for i:=l to length(s) do write(bs); 
for i5=1 to length(s) do write(' '); 
for i:«l to length(s) do write(bs); 
ok:=fal3e; 
end; 

until ok; 
hole_blkno:=nura 
end; 

procedure byttohex(byt:integer; var hexstristring); < Wandelt den Wert byt > 
begin -C in den String hexstr in hexadezimaler Notierung um > 

hexstr00'; 

hexstrC23:«hexdigitCbyt div 163; 
hex3trC33:=hexdigitCbyt mod 163; 
end; 

function hextoint(hexstr:string):integer; < wandelt den hexadezimalen String > 
var < hexstr in einen Integerwert um > 

i,num,digittinteger; 
begin 
num:«0; 

for ic=l to length(hexstr) do 
begin 

digit:«scan(16 f «hexBtrCi3,hexdigit); 
num:=num#16+digit; 
end; 

hextoint:«num; 
end; 

function hole_hexval(prompt:string;maxien:integer)sinteger; < liest einen > 
var < hexadezimalen Wert ein > 

s:string; 
begin 

write(prompt,eo1); 
if maxlen>4 then maxien:«4; 
hole w string(s,C'0'.,'9','A'..'F'3,maxlen); 
hole.hexval:»hextoint(s); 
end; 

procedure gebe_aus(start:integer); < gibt den Inhalt des Blocks aus > 
var d(np,str: string; 

inh,j,i:integer; 
begin 

if start«0 
then inh: = 32 
eise inh:« 49; 
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for i x= 4 to 19 do 
begin 

gotoxyCl,i); 
write(chr(inh)>; 
end; 

oben:=<start»0); 
dtnp:=' 0123456789123456 * ; 
for i:= 0 to 15 do 
begin 

gotoxy(4,4+i); 
for js= 0 to 15 do 
begin 

inh:=blockCstart+i*16+jD; 
byttohex(inh|Str); 
write(str); 

if inh>127 then inhs=inh-128; 
if (31<inh) and (inh<127) 
then dmpCj+2D:=chr(inh) 
eise dmpCj+2Ds='; 

end; 

writeln(dmp); 
end; 

gotoxy(0,23>; 

writeC'Blocknummer: # ,blknos4); 
end; 

procedure lese.block; < liest einen Block ein, und gibt ihn aus > 
begin 

unitread(4,block,512,blkno,0); 

<#*I+*> 

if ioresultOO then fehler; 
gebe_aus(0); 
end; 

procedure lese; < liest einen gewuenschten Block ein > 
begin 

gotoxy(0,21); 

blkno:=hole_blkno('Welchen Block lesen ? '); 
gotoxy(0,21); 
write(eol); 
lese_block; 
end; 

procedure schreib_block; < schreibt einen Block auf Diskette > 
begin 
<#*I-#) 

unitwrite(4,block,512,blkno,0); 

<**I+*) 

if ioresultOO then fehler; 
end; 

procedure schreibe; < schreibt auf gewuenschten Block > 
begin 

gotoxy(0,21); 

blkno: s hole_blkno('Welchen Block schreiben ? # >; 
gotoxy(0,21); 
write(eol); 
schreib_block; 
end; 
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procedure fuelle; < fuellt Block mit einem Wert > 

var neu:integer; 

begin 

gotoxy(0,21); 

neu:=hole_hexval('Womit fuellen ?',2); 
fillchar(block,sizeof(block),chr(neu)); 
gotoxy(0,21); 
write(eol); 
gebe_aus(0); 
end; 

procedure vor; < liest naechsten Block ein > 
begin 

blkno:»blkno+l; 
if blkno>279 then blkno:=279; 
le5e_block; 
end; 

procedure zurueck; < liest einen Block vorher ein > 
begin 

blkno:»blkno-l; 
if blkna<0 then blkno:sO» 
lese.block; 
end; 

procedure veraendere; < veraendert ein bestimmtes Byte > 
var adr,new:integer; { und gibt Veraenderung aus > 

str:string; 
begin 
repeat 

gotoxy(0,21);* 


adr:»hole_hexval('Welches 

Byte 

7 '■ 

,3); 

until adr<512; 



gotoxy(0,21); 




write(eol,hexdigitC(adr div 

256) 

mod 

163, 

hexdigitC(adr mod 

256) 

div 

163, 

hexdigitC(adr mod 

256) 

mod 

163, 


byttohex(blockCadr3,str); 
write(str,' '); 
new:«hole_hexval('' f 2); 
blockCadr3:»new; 
gotoxy(0,21); 
virite(eol); 

if (oben and (adr<256)) or 

((not oben) and (adr>2SS>) then 
begin 

if adr>255 then adr:=adr-256; 
gotoxy(4+(adr mod 16)*3,4+(adr div 16)); 
byttohex(new,str); 
write(str); 

gotoxy(53+(adr mod 16),4+(adr div 16)); 
if new>127 then new:«new-128; 
if (32>new) or (new>126) then new:»46; 
write(chr(new)); 
end; 

end; 

procedure hilf; < gibt Kommandoliste aus > 
begin 

gotoxy(0,20); 

writeln( / 0)ben U)nten L)ese S)chreibe'); 
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writeln('N)ochmals Aktualisieren VOeraendern'); 
writeln('+) vor -) 2 uruecl< Duellen E)nde'); 
warte_auf_retj 
gotoxy(0,20); 

write(eol,cr,eol,cr,eol,cr,eol,'Blocknummer: ',blkno:4); 
end; 

begin 
init; • 
lese_blcek; 

repeat < Hauptschleife: liest Kommandos ein und fuehrt sie aus, > 

gotoxy(O f Ö); { bis E)nde gewaehlt wird > 

writeC'Bedit: 0, U, L, S, N, A, +, V, F, E ',bs)j 
c:«hole_char(cmdset); 
case c of 

# 0 # ,'o': if (not oben) then gebe_aus(0); 

# U','u': if oben then gebe_aus<256); 

'L','1'* lese*, 

'S','s'* schreibe; 

'M' t 'n'i lese_block; 

'A','a'* schreib_block; 

/+ Vi's vor; 

zurueck; 

'V','v': veraendere; 

'F','f's fuelle; 

'?','/'* hilf 
end; 

until c in CE','e'U; 
end. 


2.2 Das Diroctory 

Um ein File von der Diskette lesen zu können, ist es gezwungener¬ 
maßen nötig, zu wissen, wo es steht, welchen Namen es hat sowie an¬ 
dere Zusatzinformationen. Unter POS sind sie in dem sogenannten 
Directory abgelegt. Dies ist ein Bereich auf der Diskette, der eine 
bestimmte Struktur hat. Man kann sich das Directory vom Filer aus 
mit "L" oder mit "E" auf dem Bildschirm ausgeben lassen. Ansonsten 
ist das Directory für Programme nicht zugänglich. Wenn wir jedoch 
wissen, wie das Directory aufgebaut ist und wo es auf jeder Diskette 
steht, wird es möglich, es von einem Programm aus einzulesen und zu 
verändern. 

Das Directory steht in den ersten Blöcken einer jeden Diskette. Da 
der erste Block beim Booten benötigt wird, beginnt es bei Block 
zwei. Das Directory hat eine Größe von fünf Blöcken, so daß die er¬ 
sten Files ab dem sechsten Block geschrieben werden. 

Nun zum Aufbau des Directorys. Im Listing am Ende dieses Kapitels 
ist es als ein strukturierter Record dargestellt. Wir gehen nun 
diese Typendefinition Schritt für Schritt durch und erklären die 
Bedeutung der einzelnen Felder. 

Jede Diskette hat einen Namen, über den sie angesprochen werden 
kann. Dieser Name kann bis zu sieben Zeichen lang sein. Wir definie¬ 
ren einen Diskettennamen als einen String mit der Länge 7 und nennen 
diesen Typen "VNAME”, wie Volume-Name. 

Jedes File hat einen Namen, der bis zu 15 Zeichen lang sein darf. 
Den entsprechenden Typen nennen wir "FNAME". 
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Weiterhin wird bei jeder Diskette und bei jedem Fileeintrag ein 
Datum geführt, das angibt, wann der jeweilige Eintrag zuletzt ange¬ 
sprochen wurde. Unter POS wird das Datum in einem gepackten Record 
dargestellt. Die Tage können von 0 bis 31, die Monate von 0 bis 12 
und die Jahre von 0 bis 100 gehen. Dieser Record nimmt einen Platz 
von nur zwei Bytes ein. 

Unter POS gibt es verschiedene Filetypen. Insgesamt sind es neun, 
wovon allerdings normalerweise nur fünf benutzt werden ("TEXT", 

"DATA","CODE","BAD","VOL"). Die Filetypen "INFO"."GRAF","FOTO" und 
"SECR" werden in Apple-Pascal nicht unterstützt, sie sind aber im 
Directory vorgesehen. (In Kapitel 2.7 wird allerdings beschrieben, 
wie man den "FOTO"-Typ nutzen kann.) Wir fassen alle möglichen Typen 
als "FKIND" zusammen. 

Nun kommen wir zu einem vollständigen Directory-Eintrag, "DIRENTRY". 
Zunächst wird bei jedem Eintrag vermerkt, wo sich das entsprechende 
File auf der Diskette befindet. Der erste Block wird in "FIRSTBLOCK", 
der letzte in "LASTBLOCK" angeben. Beidesmal handelt es sich um ei¬ 
nen Integerwert. 

Nun werden in einer "CASE"-Anweisung zwei Eintragstypen unterschie¬ 
den. Sie sind abhängig von der Art des Files. Die erste Möglichkeit 
ist, das es sich um einen "VOL"- oder um einen "SECR"-Typ handelt. 
"VOL" bezeichnet einen Eintrag über das Directory und die Diskette 
selber. Der "SECR"-Typ wird auf dem Apple überhaupt nicht benutzt. 

Handelt es sich also um einen "VOL M -Eintrag, so wird zunächst der 
Name der Diskette vermerkt. Es ist vom Typ "VNAME" und hat den Name 
"DISKVOL". Dann wird in einem Integerwert angegeben, wieviele Blöcke 
sich auf der Diskette befinden ("BLOCKNO"). Bei einem normalen 
Apple-Laufwerk sind dies 200, bei einem Fremdlaufwerk oft 320 oder 
mehr. Dann kommt die Angabe, wieviele Files sich auf der Diskette 
befinden ("FILENO"). Der nächste Eintrag "ACCESSTIME" wird auf dem 
Apple nicht genutzt und hat normalerweise den Wert 0. Er ist für uns 
uninteressant. Schließlich steht in “LASTBOOT", wann die Diskette 
zuletzt benutzt wurde. Bei jedem neuen Booten wird dieses Datum von 
Typ "DATEREC" eingelesen und als Systemdatum geführt. Es kann vom 
Filer aus geändert werden. 

Bei einem normalen File-Eintrag kommt zunächst der Name des Files, 
"FILENAME" vom Typ "FNAME". Dann wird in "ENDBYTES" angegeben, wie¬ 
viele Bytes im letzten Block genutzt sind. Schließlich ist in 
"LASTACCESS” das Datum angegeben, an dem das File zuletzt auf die 
Diskette geschrieben wurden.' Damit ist der Eintrag komplett. 

Das Directory eine Apple-Diskette hat 70 Einträge, wobei von 0 bis 
77 gezählt wird. Der erste ist ein "VOL"-Eintrag, womit noch Raum 
für 77 Files bleibt. Wir fassen das ganze Directory in dem Typ 
"DIREC" als ein Feld mit 76 Einträgen zusammen. 

Damit können wir das Directory von einem Programm aus ansprechen. 
Dies tun wir in dem abgedruckten Programm "DIR". Wir lesen das Di¬ 
rectory ein, und geben es aus. Die Ausgabe entspricht der des Filer- 
Kommandos "E". 

Mit "HOLEUNITNO" fragen wir den Benutzer, von welcher Unit wir ein 
Directory lesen sollen. Er kann dabei zwischen der Unit #4 und «5 
auswählen. 

"LESEDIR" liest das Direcory von der Diskette. Wir benutzen dazu die 
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”UNITREAD"-Anweisung. Es werden Daten von der angegebenen Unit in 
die Variable “DIRECTORY” gelesen, wobei bei Block Nummer 2 angefan¬ 
gen wird. Tritt ein Fehler beim Lesen auf, so wird das Programm mit 
einer Fehlermeldung abgebrochen. 

In “GEBEDIRAUS“ schließlich wird das Directory ausgegeben. Wir zei¬ 
gen dabei alle Informationen an, die von Wichtigkeit sind. Zunächst 
den Namen der Diskette, das ihre Größe, die Anzahl der Files und das 
darauf verzeichnete Datum. 

Dann wird bei allen vorhandenen Files der Name, die belegten BlÖkke, 
die Filegröße, das Datum, der Typ und schließlich die Anzahl der 
Bytes im letzten Block ausgeben. Dabei wurde darauf geachtet, daß 
der Bildschirm möglicht übersichtlich aussieht. 

Han ist natürlich nicht darauf beschränkt, das Directory einzulesen. 
Wenn man es nach einer Änderung wieder zurückschreibt, kann man 
Funktionen des Filers von einem eigenen Programm aus durchführen. 
Dies wird im nächsten Kapitel demonstriert. 

Wichtige Variablen 

“DIRECTORY" : Variable von Typ “DIREC", die das gesamte 
Directory einer Diskette aufnimmt 

"UNITNO“ : Integerwert, der angibt, von welchem Laufwerk 
ein Directory eingelesen werden soll. 

Wichtige Prozeduren 

"HOLEUNITNO“ : Fragt den Benutzer nach dem Wert für “UNITNO“ 

"LESEDIR" : Liest das Directory von der Diskette in die 
Variable “DIRECTORY“ ein 

••GEBEDIRAUS“ : Gibt die Variable "DIRECTORY“ 

strukturiert auf dem Bildschrim aus 


Progr annm "DIR . TEXT " 

Programm dir; 
type 

vname=stringC73; < Ein Volumenarae > 
fname=stringC15D; < Ein Filename > 
daterec = packed record < das Datum > 
month: 0..12; 
day: 0..31; 

year: 0..1G0; 
end; 

fkind = <vol,bad,code,text,info,data,graf,foto,secr); < moegliehe Filetypen > 
direntry = record < ein Eintrag im Directory > 

firstblock: integer; < Block, bei dem das File anfaengt > 
lastblock: integer; < Block, bei dem das File endet > 
case filekind: fkind of 

< nur beim Eintrag #0 > 

vol,secr: Cdiskvol: vname; < Name der Diskette > 
blockno: integer; < Anzahl der Bioecke > 
fileno:integer; < Anzahl der Files > 
accesstime: integer; < unbenutzt > 
lastboot: daterec); < Datum, an dem die > 
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{ zuletzt benutzt wurde > 

{ Normale File-Eintraege > 

bad,code,text, 

info,data,graf, 

foto: (filename: fname; < Filename > 

endbytes: 1..512; < Bytes im letzten Block > 
lastaccess: daterec); < Datu, an dem das File > 
end; < geschrieben wurde > 

direc = arrayC0..773 of direntry; < Directory mit 78 Eintraegen > 

var directoryidirec; 
unitno tinteger; 

procedure holejjmitno; < Fragen, von welcher Unit gelesen werden soll > 
var chschar; 

ok:boolean; 

begin 

write('Von welcher Unit lesen (4/5) ?'); 
ok: B false; 
repeat 
read(ch); 

if ch in C'4','5'3 
then ok:=true 

eise write(chr(7),chr(8),' ',ehr<8)); 
until ok; 

unitno s =ord(ch)-48; 
end; 

procedure lese.dir; < liest das Directory von der Unit #4 ein > 
var io:integer; < Bei einem Disketten-Fehler wird das Programm verlassen > 
begin 
<*I-> 

unitread(unitno,directory,sizeof(directory),2); 

<*I+> 

io;=ioresult; 
if io<>0 then 
< Fehler ! > 
begin 

writeln(chr(7)); i Beep > 
writeln('Fehler #',io); 

writelnC'Directory von Unit #',unitno,' nicht zu lesen'); 
exit(program) 
end; 

end; 

procedure gebe_dir_aus; 

var i:integer; 

begin 

writeln(chr(12)); < Schirm loeschen > 
with directoryCOD do 

begin { Informationen ueber Diskette ausgeben > 

< Diskettename > 

writeC'Diskettenname:' " ,diskvol,'' " ); 

< zuletzt benutzt am > 

writelnC' / Zuletzt benutzt am ',lastboot.day,'-',lastboot.month, 

,lastboot.year); 

< Anzahl der Bioecke > 

writeC'Anzahl der Blaecke: ',blockno); 

< Anzahl der Files > 

writeln(' / Anzahl der Files: ',fileno); 
writeln; 
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end; 

ix c l; 

while i<=directoryC03.fileno do 
begin 

if i mod 20 = 0 then 

< Bildschirmausgabe anhalten > 
begin 

write('Bitte <ret> zum Weitermachen'); 
readln; 

writeln(chr(12)); < Bildschirm lceschen > 
end; 

with directoryCiD do < Informationen der einzelnen Files ausgeben > 
begin 

{ Filename > 

write(copy(concat(filename,' '),1,18))| 

■C belegte Bioecke > 

writeC'Block ',firstblock:3,'-',lastblockt3,' ')) 

write(' (' ,lastblock-firstblocks3 f '> '); 

< geschrieben am > 

write(lastaccess.day:2,'-',lastaccess.monthx2 f , 
lastaccess.year:2/ '); 

< Filetyp > 
case filekind of 

bad : writeC'Bad File'); 
codex write('Ccdefile'); 
text: write('Textfile'); 
info: write('Infofile'); 
datax write<'Datafile'); 
grafx writeC'Graffile'); 
fotox writeC'Fotofile') 
end; 

i Bytes in letzten Block > 
writelnC' ',endbytesx3); 
end; 
i:=i+l; 
end; 

end; 

begin 

hole_unitno; 

lese_dir; 

gebe_dir_aus; 

end. 


2.3 PASH : Kin. a. 1 tornat i ve r Fi 1 er 

Aus Kapitel 2.2 haben wir die Informationen. um das Directory einer 
Jeden Diskette zu lesen und zu verändern. In PASH werden wir dieses 
Wissen ausgiebig anwenden. 

Das Andern der Informationen über eine Diskette ist im POS-Betriebs- 
System die Aufgabe des Filers. Fast sämtliche seiner Funktionen be¬ 
ruhen darauf. Das Verändern des Volume-Namens mit der "O"-Funktion 
ist im Grunde genommen nur das Verändern eines Feldes der Directory- 
Informationen. Da wir dies auch können, wollen wir nun ein Programm 
entwickeln, das einige Funktionen des Filers übernimmt und neue hin¬ 
zufügt. Da das Programm an ein Programm angelehnt ist, das unter dem 
Betriebssystem CP/M läuft und WASH heißt, nennen wir unser Programm 
PASH. 
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Was ist am Filer noch zu verbessern, könnte man sich fragen, wenn 
man damit bis Jetzt Jedes auftauchendes Problem lösen konnte. Es 
fallen einem auch nur wenige Funktionen ein, die man ab und zu ge¬ 
brauchen könnte, die der Filer aber nicht bietet. 

So wäre es gut, wenn man einige Standardvorgänge mit einem Kommando 
auslösen könnte. So z.B. das Listen eines Textes auf dom Drukker. 
Falls man ein entsprechendes Kommando hat, braucht man nur noch ei¬ 
nen Filenamen eingeben und nicht mehr, daß man den Text an den Druk¬ 
ker ("PRINTER:”) schicken will (Hit "T"-Kommando). 

Wir bauen also in unser Programm eine solche Funktion ein. Ebenfalls 
wird eine Funktion realisiert, die ein File auf dem Bildschirm aus¬ 
gibt. Schließlich wäre es auch schön, wenn wir uns auch Codefiles 
anschauen könnten, ohne daß dies ein wildes Piepsen und Bildschirm 
löschen auslöst. 

Da die meisten Pascalbenutzer mit zwei Laufwerken arbeiten, gibt es 
nur vier Richtungen zum Kopieren von Files, die benutzt werden. Also 
vereinfachen wir das Kopieren von Files, indem die Kopierrichtung 
vorher festgelegt wird. Dann ist nur noch ein Filename für ein 
Kopierkommando nötig. 

Was wir in unserem Programm auch gegenüber dem Filer verbessern wol¬ 
len, ist der Bedienungskomfort. Für fast alle Filerkommandos ist die 
Eingabe eines Filenamens nötig. Bei längeren Namen wird es aber 
schwierig, sich die genaue Schreibweise des Namens zu merken. Man 
muß sich also zuerst das Directory mit "L” listen lassen um den 
Namen dann abzuschreiben. Zudem wird der Bildschirm oft gelöscht, so 
daß wir uns das Direktory erneut listen müssen. Um dies zu umgehen, 
führen wir eine völlig andere Eingabe des Filenamens ein. 

Der größte Teil des Bildschirms bei der Benutzung von PASH wird re¬ 
serviert für die Anzeige aller Filenamen einer Diskette. Wenn wir 
uns nur auf den Filenamen beschänken paßt auch die maximale Anzahl 
von Files auf den Bildschirm. Nun benutzen wir noch einen Cursor, 
mit dem wir auf einen Filenamen zeigen können. Die Angabe eines 
Filenamens beschänkt sich damit nur auch einige Cursorbewegungen. 
Wenn dann ein Kommando eingegeben wird, bezieht es sich auf das 
File, auf das der Cursor gerade zeigt. Es braucht also nicht ein 
einziger Buchstabe des Filenamens eingegeben werden. Fehleingaben 
sind ausgeschlossen und man behält immer den Überblick über den In¬ 
halt der ganzen Diskette, mit der gerade gearbeitet wird. 

Um die Anzahl der Eingaben zur Cursorbewegungen zu minimieren führen 
wir Kommandos ein, die den Cursor ein oder fünf Files vor oder zu¬ 
rück bewegen. Zwei weitere ermöglichen es, zum ersten oder zum letz¬ 
ten Eintrag im Directory zu springen. 

Schließlich führen wir noch ein Konzept ein. Die Auswahl von meh¬ 
reren Files ist im Filer durch die sogenannten "Wildcards" und 
"7" realisiert. Es ist aber nicht möglich, zwei Files automatisch 
hintereinander zu bearbeiten, wenn kein Teil ihrer Namen identisch 
ist. Das "?"-Zeichen, das für solche Fälle gedacht ist, erfordert 
wieder bei Jedem File ein "J/N"-Antwort. 

Hier führen wir nun Marken ein. Jedes File, auf dem der Cursor steht 
kann markiert werden. Wird nun ein Kommando aufgerufen, das z.B. 
alle markierten Files löscht, so geschieht das automatisch. Der Vor¬ 
teil ist, daß mit einem Kommando Files bearbeitet werden können, die 
keinerlei Entsprechungen im Filenamen aufweisen müssen. 
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PASH bietet nicht alle Funktionen des Filers, da das Programm dann 
einen beträchtlichen Umfang erreichen würde, der den Rahmen eines 
Buches sprengt. PASH kann Files löschen, umbenennen, kopieren und 
auf dem Bildschirm und auf dem Drucker ausgeben. 

Es ist für den Leser aber auch möglich, PASH zu erweitern. Dabei 
kann er die Cursorsteuerung und das Markenkonzept unberührt lassen. 
Er braucht sich nur die entsprechenden Prozeduren schreiben, und die 
mit einem bestimmten Tastaturkommando aufrufen lassen. 

Damit dies erleichtert wird, schauen wir uns eine Funktion von PASH 
genauer an, undzwar die Löschfunktion. 

PASH bietet zwei Kommandos zum Loschen von Files an. Das File, auf 
das der Cursor zeigt, kann gelöscht werden oder alle markierten 
Files. Beide benötigen ein Unterprogramm, das ein einzelnes File 
löscht. Diese Prozedur heißt "DELENTRY". An sie wird ein Integerwert 
übergeben, der die Nummer des Eintrages im Directory angibt. Für das 
erste File würde z.B. der Wert 1 übergeben. 

Wenn überhaupt Files vorhanden sind, gibt "DELENTRY" eine Meldung 
aus, daß ein File gelöscht wird. Dann werden einfach alle Directory- 
Einträge, die hinter den zu löschenden File stehen um eins aufge¬ 
rückt, da alle Einträge aufeinander folgen müssen. Dann wird nur 
noch der Directory-Eintrag "FILENO" um 1 erniedrigt. Er gibt an, 
wieviele Files auf der Diskette vorhanden sind. Damit ist das File 
schon gelöscht. Es ist ersichtlich, daß die Operationen mit dem 
Directory äußerst simpel sind. 

Die Prozedur "DEL" löscht das File, auf das der Cursor gerade zeigt. 
Der Benutzer muß zunächst das Loschen durch "Y" bestätigen. Die 
Funktion "YESNO" erwartet die Eingabe von "Y" oder "N" und ergibt 
bei "Y" den Wert "TRUE". 

Bei "Y" löscht "DEL" mit "DELENTRY" das File. Die Nummer des Files, 
auf das der Cursor zeigt steht in "CURRENT". Dann wird mit "FUTDI- 
RECTORY" das Directory auf die Diskette geschrieben. "PUTDIRECTORY" 
ergibt den Wert "TRUE", wenn ein I/O-Fehler aufgetreten ist. Falls 
ja, gibt "DEL" eine Fehlermeldung aus und liest das Directory wieder 
neu ein. 

Schließlich wird das Directory mit "PRINTDIR" auf dem Bildschirm neu 
ausgeben und der Cursor eventuell berichtig. Dies ist dann der Fall, 
wenn das letzte File gelöscht wurde, da er dann außerhalb der Ein¬ 
träge stehen würde. 

"TAGDEL" löscht alle markierten Files. Zunächst wird gefragt, ob 
jede Aktion bestätigt werden soll, was in der Variablen "CONFIRM" 
festgehalten wird. Mit einer Schleife werden alle Files daraufhin 
geprüft, ob sie markiert sind. Dies ist der Fall, wenn das Feld 
"TAGGED" für den Eintrag den Wert "TRUE" hat. Dann wird eventuell 
nachgefragt, ob wirklich gelöscht werden soll und mit "DELENTRY" das 
File gelöscht. 

Daraufhin wird wieder der Cursor korrigiert und das Directory auf 
die Diskette geschrieben. Falls ein Fehler auftritt, gibt es wieder 
eine Meldung. Schließlich wird das Directory wieder neu auf dem 
Bildschirm aufgezeigt. 
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Wichtige Typen und Variablen 

"DIREC" : Enthält einen strukturierten Record für das 

Directory. Wird aus Kapitel 2.2 übernommen. 

"DIRECTORY*' : Enthält das Directory der Diskette, mit 
der gerade gearbeitet wird. 

"TAGGED" : Feld, das angibt, ob ein File markiert ist. 

Bei "TRUE" ist der entsprechende 
Directory-Eintrag markiert. 

"CURRENT" : Enthält die Nummer des Files, auf das der 
Cursor im Moment zeigt. 

"SOURCE" : Enthält Unitnummer des Laufwerks, mit dem 

gerade gearbeitet wird (Unit 4 oder 5>. Beim 
Kopieren wird von dieser Unit gelesen. 

"TARGET" : Enthält Unitnummer des Laufwerks, auf das beim 
Kopieren geschrieben wird (Unit 4 oder 5). 

"JMPDIR" : Enthält die Richtung, in der das "J"-Kommando 
arbeitet (1 oder -1). 

Kommand o1is t e 

: Cursor einen Eintrag nach unten bewegen 
: Cursor einen Eintrag nach oben bewegen 
"B" : Cursor auf ersten Eintrag setzen 

"E" : Cursor auf letzten Eintrag setzen 

"J" : Cursor fünf Einträge nach oben öden nach unten 

bewegen 

s Richtung für "J" Kommando auf "nach oben" setzen 
: Richtung für "J" Kommando auf "nach unten" setzen 

<spc>: Marke setzen oder löschen 
"4" : von Unit 4 lesen, auf Unit 5 kopieren 

: von Unit 4 lesen, auf Unit 4 kopieren 

"5" : von Unit 5 lesen, auf Unit 4 kopieren 

^ von Unit 5 lesen, auf Unit 5 kopieren 

"S" : Directory neu einiesen 

"D" : File löschen (Muß durch "Y" bestätigt werden) 

"F" : markierte Files löschen (durch "Y" wird 

ausgewählt, daß bei jedem File bestätigt 
werden muß) 

"R" : File umbenennen 

"C" : File kopieren (Falls vorhanden, muß Uberschroiben 

durch "Y" bestätigt werden) 

"V" : markierte Files kopieren 

"L" : File auf dem Bildschirm ausgeben (Durch "Y" kann 

ausgewählt werden, daß nach jeder Bildschirmseite 
durch <esc> abgebrochen werden kann) 

"P" : File auf Drucker ausgeben 

"I" : Fileinformationen ausgeben (Reihenfolge: 

Filename/Datum/belegte Blöcke/Bytes im letzten 
Block) 

"U" : ausgeben, wieviel Platz auf der Diskette schon 

belegt und noch frei ist (Angaben in Blöcken und 
KByte) 
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"/" : Kommandoliste ausgeben 

"X” : PASH verlassen 


Pro © r- a.mm ** PASH . TEXT •• 

<$S+> 

Programm PASH; 
con st 

window-20; 

type 

setofchar « set of char; 
ab = <a,b); 
vname“stringC73; 
fname=stringC153; 

DATEREC » PACKED RECORD 
MONTHs 0..12; 

DAYs 0..31; 

YEARs 0..100; 

END; 

FK1ND o (vol,bad,code,text,info,data,graf,foto,secr); 

DIRENTRY = RECORD 

FIRSTBLOCKs INTEGER; 

LASTBLOCK* INTEGER; 

CASE FILEKINDi FKIND 0F 

vol,secr: (diskvol: VNAME; 

blockno: INTEGER; 
filenosinteger; 
accesstimsi INTEGER; 
lastboot: DATEREC); 
bad,code,text, 

info,data,graf,foto: (FILENAME* FNAME; 

ENDBYTESs 1..S12; 
lastaccesss DATEREC); 

END; 

DIREC « ARRAYC0..773 0F DIRENTRY; 
var 

cr,bs,sp,eol,bell : char; 
directory:direc; 

tagged: packed arrayC1..773 of boolean; 

currento1d , current * integer; 

cmdset * setofchar; 

noclrsboolean; 

source,target sinteger; 

sources,targets t stringC33; 

jmpdir*integer; 

segment procedure init; < initialisiert Variablen und legt das > 
begin < Bildschirmlayout fest > 

page(output); 

writeC'---'); 

writeC' PASH 1.1 '); 

writeC'- • ) ; 

gotoxy(0,21); 

vrite('-Read on <4>—Copy <4 -> 5>—Jump<+>-'); 

cr*=chr<13); 
bs:=chr(8); 
sps«chr<21); 
eol*=chr(29); 
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bell:=chr<7); 

cmdset:=Cbs,sp,' ' f ,' f '|'.','/','4' f '5','B' f 'C','0','E','F' 
'L' ,'P' ,'R','S','U','V','X'D; 
current:= 1 ; 
currentold:= 15 
noclr:=false; 

fillchar(tagged,sizeof(tagged),chr( 0 )); 
source s=4; target :»5; 
sources:='#4:'; targets;s='#5:'; 
jmpdir:=l; 
endj 




procedura cleartags; < loescht alle Markierungen > 
begin 

fillchar(tagged,sizeof(tagged),chr( 0 )); 
end; 

function getchar(oksetssetofchar)schar; -C holt ein Zeichen von der Tastatur, > 
var < das in okset entahlten sein muss > 

ch : char; 
good : boolean; 
begin 
repeat 

read Ckeyboard,ch); 

if ord<ch)>95 then ch:«chr(ord(ch)-32>; 
if eolnCkeyboard) then ch:=cr; 
good j° ch in okset; 
if not good then write(bell) 
eise if ch in C' '..ehr<125)3 then write(ch); 
until good; 
getchars^ch; 
end; 

procedure getstring(var ssstring; oksetssetofehar; maxiem integer); < holt > 
var < einen String von der Tastatur. Seine Laenge steht > 

sl sstringClD; < in maxien, die Zeichen muessen in okset enthalten > 

stemp sstring; i sein. > 

len :integer; 

firstchar,lastcharsboolean; 
getset tsetofehar; 
begin 

sli=' '; stemp :="; 
if maxlen<l then maxlenj=l 

eise if maxlen>255 then maxiem»255; 
repeat 

len: s length(stemp); 
firstchar:=(len= 0 ); 
laßtchars=(len=maxlen); 
if firstchar 

then getsets=okset 

eise if lastchar then getset:=*Ccr,bs3 

eise getset: s okset+Ccr,bs3; 
slC13:=getchar(getset); 
if slC13 in okset 

then 3tempi=concat(stemp,sl) 
eise if slC13=bs then begin 

write(bs,' ',bs); 
dolote(stemp,len,l); 
end; 

until slC13=cr; 
vriteln; 
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sx=stemp; 

end; 

procedure getaname(var namesstring; var numsinteger); < liest einen Filenamen > 
begin i von der Tastatur ein und prueft, ob er im Directory vorkommt. Falls > 
getstring(name,C' '..'"'3,15)5 < nicht, wird num 0 > 

num;=0; 
repeat 
num:=num+l; 

until (name=directoryCnum3.filename) or 
<num>directoryC03.fileno); 
if nura>directoryC03.fileno then num:=0; 
end; 

function yesnoxboolean; < liest eine Y/N-Antwort ein > 
begin 

yesnosa(getchar(C'N','n # ,'Y','y'3) in C'Y','y'3); 
end; 

procedure ret; < wartet auf die Eingabe von <ret> > 

var dummyschar; 

begin 

write (' <ret>'); 
dummy:=getchar(Cchr(13)3)f 
end; 

function getdirectory:integer; < liest das Directory ein. Der Funktionswert } 
begin < entspricht dem I/O-Result. > 

(*$I-#> 

unitread(source,directqry,sizeof(directory),2); 

getdirectory:=ioresult; 
end; 

function putdirectory:integer; < schreibt das Directory auf die Diskette. > 
begin { Der Funktionswert entspricht dem 1/0-Result. > 

unitwriteCsource,directory,sizeof(directory),2); 

(*$I+*) 

putdirecto ry s =ioresu11; 
end; 

procedure error; -C gibt Fehlermeldung aus > 
begin 

gotoxy(0,22); 

write(bell,'#*# I/O error *#* '); 
ret; 
end; 

procedure printentry(num:integer); < gibt einen Filenamen auf dem Schirm aus > 

var chschar; 

begin 

gotoxy(l+19*trunc(num/(window+l)),1 + ((num-1) mod window)); 
if taggedCnum3 
then ch:«'+' 
eise ch;='; 

write <ch,directoryCnum3.fi1ename); 

gotoxy<17+19#trunc<nu«/(window+l)>,l + <<num-l) mod window)); 
write(ch); 
end; 
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procedure clear(num:integer); < loescht einen Filenamen auf dem Bildschirm > 
begin 

gotoxy(2+19*trunc(num/(window+1)),1 + (Cnum-1) mod window)); 
write(' '); 

end; 

procedure clearwindow; < loescht Bildschirm > 

var i:integer; 

begin 

gotoxy(0,l); 
for i:=l to window do 
writeln(eol); 
gotoxy(0,1); 
end; 

procedure clearline; < loescht die 22. Bildschirmzeile > 
begin 

gotoxy(0,22); 
write(eol); 
end; 

procedure mancurrent; < gibt Cursor auf dem Bildschirm aus > 
begin 

gotoxy(19*trunc(currentold/(window+1)),1 + ((currentöld-1) mod window)); 
write(' '); 

gotoxy(1B+I9*trunc(currentold/(window+1)),1 + ((currentold-1) mod window)); 
write(' # ); 

gotoxy(19*trunc(current/(window+1)),1 + ((current-1) mod window)); 
write('>'); 

gotoxy(18+19*trunc(current/(window+1)),1 + ((current-1) mod window)); 
write('<'); 
currentold s «current; 
end; 

procedure printdir; < gibt das Directory auf dem Bildschirm aus > 

var isinteger; 

begin 

clearwindow; 

for i:= 1 to directoryCOD.fileno do 
printentry(i); 
moncurrent; 
end; 

procedure helpuser; < gibt die Kommandoliste aus > 

procedure helpl; 
begin 

clearwindow; 

writeln(' Commands',cr); 

write(' -> Move Cursor down '); 

writeln(' J Move Cursor five up or down'); 

write(' <- Move Cursor up '); 

writeln(' , Set J-direction to up'); 

write(' B Set Cursor to first file '); 

writeln(' . Set J-direction to down'); 

writeln(' E Set Cursor to last file'); 

write(' spc Toggle tag '); 

writeln(' 4s read from unit 4 copy to unit 5'); 

write(' S Start over '); 

writelnC' $: read from unit 4 copy to unit 4'); 

write(' D Delete file '); 
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writelnC' 5: read fron unit 5 copy to unit V)? 
write(' F Tagged dalete '); 

writeln(' X: read from unit 5 copy to unit 5'); 
end; 

procedure help2; 
begin 

vriteln(' R Rename file'); 

writelnC' C Copy file'); 

writelnC' V Tagged copy'); 

writeln< # L List a file on CRT'); 

writelnC' P List a file on PRINTER'); 

writeC' I Print file Information '); 

writelnC' / Print helptable'); 

writeC' U Print used disk space '); 

writeln(' X Exit PASH'); 

gotoxy(0,22); 

writeC'Press'); 

ret; 

printdir; 

end; 

begin 

helpl; < wegen der beschraenkten Groesse einer Prozedur musste > 
help2; < 'help' aufgeteilt werden > 
end; 

procedure advance; < bewegt Cursor um einen Filennamen nach vorne > 
begin 

if current<directoryCO3.fileno 
then begin 

current*«current+1; 
moncurrent; 
noclr:=true; 
end; 

end; 

procedure stepback; < bewegt Cursor um einen Filenamen zurueck > 
begin 

if currentM 
then begin 

current x*=current-l; 
moncurrent; 
noclr:=true; 
end; 

end; 

procedure jump; < bewegt Cursor um 5 Filenamen vor oder zurueck > 

var ix integer; 

begin 

for i*=l to 5 do 
case jmpdir of 
-1: stepback; 
lx advance 
end; 

end; 

procedure tag; < setzt eine Markierung > 
begin 

taggedCcurrentD x =not taggedCcurrent3; 
printentry(current); 
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advance; 

noclr:=false; 

end; 


procedure jmpbeg; < 
begin 


setzt den Cursor auf den ersten Filenamen > 


current:=1; 
moncurrent; 
noclrs^true; 
end; 


procedure jmpend; < setzt den Cursor auf den letzten Filenamen > 
begin i 

current:=directoryC03.fileno; \ 
moncurrent; 
noclrs=true; 
end; 

] 

procedure restart(ssboolean); i liest Directory neu ein > 
begin 

clearline; 

if s then write('Start over'); 
if getdirectory <> 0 
then error 
eise begin 

cleartags; 

printdir; 

jmpbeg; 

noclr:=false; 

end; 

end; 


procedure rename; < veraendert eijnen Filenamen ) 
var target:string; 

dummy,num :integer; 
begin 

gotoxy(0,22); 
write('Rename as '); 
getaname(target,num); 
if num=0 
then begin 

di rectoryCcurrentD .fit! 
if putdirectoryOO thei 


end; 


clear(current); 
printentry(current)? 
end 

eise begin 

gotoxy(0,22); 
write(target,' alreadyj 
end; 


jename* “target; 

\n begin 
error; 

dummy:=getdirectory; 
end; 


exists !',eol); 


procedure filesize; i gibt Informationen zu einem File aus > 
begin ! 

gotoxy(0,22); 

with directoryCcurrent} do ! 

begin 

write(filename,' '); ! 
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with lastaccess do 

write(day,,month,'-',year)5 
write( # Used blocks: ',firstblock,,lastblock); 
write( # Bytes in last block: ',endbytes,' '); 
end} 
ret; 
end; 

procedure unused; -C gibt aus, wieviel Platz auf der Diskette belegt ist > 

var unused,used,i:integer; 

begin 

gotoxy(0,22); 

write('Unused blks : '); 

used:=directoryCOT.lastblock-directoryCOT.firstblock; 
for i:= 1 to directoryCOT.fileno do 

used:=used+(directoryCiT.lastblcck-directoryCiT.firstblock); 
unused:«directoryCOT.blockno-used; 
write (unused/ (= ', trunc (unused/2) ,' , 

trunc((unused*10)/2—10«trunc(unused/2)),' K Bytes)'); 
write(' / ',used,' blks used'); 
write(' (= ',trunc(used/2),, 

trunc((used*10)/2-10*trunc(used/2)),' KBytes) '); 

ret; 

end; 

procedure delentry(num:integer); < loescht ein File > 

var i:integer; 

begin 

if directoryCOT.fileno <> 0 then 
begin 

clearline; 

write('Deleting ',directoryCnumT.filename); 
with directoryCOT do 
begin 

if num<fileno then for i:= num to fileno-1 do 

direetoryCiT:=directoryCi+13; 

filenox=fileno-1; 
end; 

end; 

end; 


procedure del; < loescht ein File auf Benuztereingabe > 
var dumtny:integer; 
begin 
clearline; 


write('Delete ? (Y/N) '); 
if yesno then begin 

delentry(current); 
if putdirectory<>0 then begin 

error; 

dummy:°getdirectory; 
end; 

printdir; 

if current>directoryCOD.fileno then 
current:=directoryCOT.fi1eno; 
moncurrent; 
end; 


end; 


procedure tagdel; { loescht alle markierten Files > 
var dlt,confirmsboolean; 
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dummy,i:integer; 

begin 

gotoxy(0,22); | 

vriteC'Comfirm each delete ? (Y/N) '); 
confirra: B yesno; 

for i s a directoryC03.fileno dcwnto 1 da 
ii taggedCiT then begin 

if confirm 
then begin 

clearline; 

urite(directoryCi3.filename,' 
dlt:°yesno; 
erd 

eise dlt:=true; 
if dlt then delentry(i); 
end; 

cleartags; 

if current>directoryCQ3.fileno then current:=directoryC03.filenoj 
if putdirectoryOD then begin j 
errotj; 

dummy: =getd i rectory; 


Delete ? <Y/N) '); 


printdir; 

end; 


end; 


procedure viewClistsboolean); -C gibt ein File auf dem Bildschirm > 
var i,j, < c^der dem Drucker aus. > 

k,count, 

dummy: integer; 

carrayi packed arrayC0..153 of 

packed arrayCO.,633 ofj char; 
unfil: file; 
outpt: interactive; 
new1ine, 
abort, 

die: boolean; 

procedure chkio; < verlaesst 'vi^w' bei Diskettenfehler > 
begin 

if ioresultO 0 then begin 

error; 
printdir!; 
exit(vie^) 
end; 

end; 

procedure askuser; < gibt Bildschjirmmeldung aus > 
var an:char; 
begin 

clearline; 

writeC' Press <ret> or <esc> # );i 
an:=getchar(Ccr,chr<27)3); j 
clearline; 

if an=chr(27) then begin 

closeCunf i| 
printdir; 
exit(view) 
end; 

end; 

function readblk:integer; < liest! 
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begin 

<*$I-*) 

readblkx s blockread(unfil,carray,2); 
(*$!+#) 
chkio; 
end; 


begin 

gotoxy(0,22); 

write('Do you want the possibility to abort ? <Y/N) # ); 

abortx=yesno; 

clearline; 

clearwindow; 

(*$I-*> 

reset(unfil,concat(sources,directoryCcurrent3.filename)); 
if list then reset(outptPRINTER*') 
eise reset(outpt,'CONSOLEs '); 

<*$!+#) 


chkio; 

if directoryCcurrentD.filekind = text 
then 
begin 

dummy:°readblk; 
count(»O; 
newline:«true; 
dletafalse; 
repeat 

for i:=* 0 to readblk*7+l do 
begin 

for 0 .to 63 do 
begin 

if die then begin 

for k:=1 to ord(carrayCi,jD)-32 do 
write(outpt'); 
dle: s false; 
end 

eise 

if newline then 

if carrayCi, j>chr<16) 
then dle:°true 
eise begin 

newlinex^false; 
if carrayCi,j3=chr(13) 
then 
begin 

writeln(outpt); 
newline:=true; 
counti°count+l; 
end 
eise 

write(outpt,carrayCi,jU); 

end 

eise 

if carrayCi, j3=*chr (13) 
then begin 

writeln(outpt); 
newline:**true; 
count:=count+l; 
end 

eise write(outpt,carrayCi|j3); 

if count»20 then begin 
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count **=0$ 

if abort then askuser; 
if not list then clearwindow; 
end; 

end; 

end; 

until eof(unfil); 
end 

eise begin 

repeat 

if not list then clearwindow; 
for i:= 0 to readblk»7+l do 
begin 

for js= G to 63 do 

if (carrayCi,j3 < ehr(32)) 

or ((carrayCi,j3>chr(126)) and (carrayCi,j3<chr<160))) 
or (carrayCi, J3**chr (255)) 
then write(outpt,'.') 
eise write(outpt,carrayCi,j3); 
writeln(outpt); 
end; 

if not eof(unfil) then 
if abort then askuser; 
until eof(unfil); 
end; 

(#*I-#) 
close(unfil); 
close(outpt); 

clearline; 
write('Press'); 
ret; 

printdir; 

end; 

function copyfile(num:integer)tboolean; < kopiert ein File > 
var filea,filebtfile; 
change,repltboolean; 
dirbsdirec; 
blks,i:integer; 

blkarray: packed arrayCO..240633 of char; 

procedure bye; < verlaesst 'copyfile' > 
begin 
(#• 1 -*) 
closeCfilea); 
close(fileb)| 

(#*I+#> 

copyfilei«true; 
exit(copyfile) 
end; 

procedure chkio; < testet auf Diskettenfehler > 

var holdsinteger; 

begin 

hold: s ioresult; 
if hold»8 then begin 

clearline; 

write('No room on copy disk. '); 

ret; 

bye; 
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Dies wenden wir in dem Segment "SEG1" an. Die Funktion "CHKSEG" er¬ 
gibt ein "TRUE", wenn sich die Diskette mit dem angegeben Disket¬ 
tennamen im Laufwerk befindet. Sie wird in einer "REPEAT"-"UNTIL"- 
Schieife aufgerufen, solange, bis sie "TRUE" ergibt. Dann kann das 
Segment verlassen werden. 

"GETSEGSTR" und "CHKSEG" übergeben bei einem Diskettenfehler den 
Fehlercode. Im abgedruckten Beispiel wird darauf das Programm abge¬ 
brochen . 

Vielleicht fällt es auf, daß im dem Programm nicht geprüft wird, ob 
sich die Programmdiskette auch beim Aufruf eines Segments im Lauf¬ 
werk befindet. Dies ist hier auch nicht nötig, da die Segmente di¬ 
rekt hintereinander aufgerufen werden. Es ist auszuschließen, daß in 
dieser kurzen Zeit die Diskette gewechselt werden könnte. 

Wichtige Konstanten, Typen und Variable 

"UNITNO" s Konstante, die angibt, von weicher Unit das 

Programm gestartet werden muß. Hier Unit «4 

"DIRPART" i Record, um den Namen einer Diskette 

einzulesen. "DUMMY" enthält für uns 
unwichtige Informationen. 

"SEGSTRING" : String, der den Namen der Pogrammdiskette 
aufnimmt. 

Wichtige Prozeduren und Funktionen 

"GETSEGSTRING" : Liest den Namen der Programmdiskette 
und übergibt einen eventuellen 
Fehlercode. 

"CHKSEG" : Uberprüft, ob sich die Programmdiskette im 

Laufwerk befindet. Ergibt "TRUE", wenn ja. 
übergibt einen eventuellen Fehlercode. 


Programm "SEGCHK.TEXT" 

Programm seg; 
const unitno = 4; 
type 

vname=stringC7D; { Ein Volumename > 
dir_part = record < ein Teil des Directorys > 

dummy: packed array CO ..21 oi integer; 
diskvol: vname; < Name der Diskette > 
end; 

var segstring s vname; 

Segment prccedure init; 
var errorsinteger; 

procedure get_segstr(var s:vname; var er:integer); ■( Namen der Programm- > 
var prtsdir_part; < diskette einiesen > 

begin 
<$!-> 
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unitread(unitno,prt,sizeof(prt),2); 

<$I+> 

er:=ioresult; < ev. Fehlercode retten > 
s;~prt.diskvol; < s setzen > 
end; 

begin 

writeln( 7 Segment INIT 7 ); < Demo Meldung > 

get_segstr(segstring,error); < “segstring" von Diskette lesen > 
if errorOO then begin < bei Fehler Programm verlassen > 

wr’iteln(' Diskfehler') ;• 
exit(program); 
end; 

< hier koennen weiter Anweisungen stehen > 

< . > 

■C . > 

< . > 

end; 

segment procedure segl; 
var error:integer; 

functicn chkseg(s:string; var er:integer)tboolean; < ergibt true, wenn > 
var prt:dir_part; -C die eingelegte Diskette den angegebenen Namen > 

begin < hat, sonst false. Bei einem Fehler wird der > 

<$I-> < Fehlercode uebergeben, und chkseg ergibt true > 

unitread(unitno,prt,sizeof(prt),2); 

<$I+> 

er:~ioresult; < ev. Fehlercode retten > 
if prt.diskvolOs then chkseg:=false 
eise chkseg:«true; 

if er<>0 then chkseg:=true; < Korrektur bei Lesefehler > 
end; 

begin 

writelnC'Segment SEG1'); { Demomeldung > 

< hier koennen weiter Anweisungen stehen > 

< . > 

< . > 

< . > 

repeat i Darauf warten, dass die richtig Diskette eingelegt wird > 
write('Bitte Programmdiskette einlegen'); 
readln; 

until chkseg(segstring,error); 

if errorOO then begin < Bei Fehler Programm verlassen > 
writeln(' Diskfehler 7 ); 
exit(program) 


begin i Nur Segmente aufrufen > 
init; 
segl; 
end. 
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2.5 Wie ma.n den OOS 3.3 Cata 1 og 
liest. 

Das Standard-Betriebssystem des Apples ist das DOS, in der Version 
3.3. Es wird mit jedem Diskettenlaufwerk ausgeliefert. Die Struktur 
einer DOS-Diskette ist der einer Pascal-Diskette in gewissen Maße 
ähnlich. Es bestehen jedoch mehrere Unterschiede. 

So beträgt unter Pascal die Größe eines Block nicht wie unter POS 
512, sondern 256 Bytes. Das entspricht einem halben Block. Er wird 
Sektor genannt. Außer diesem Hauptunterschied ist der Aufbau und die 
Position des Inhaltsverzeichnisses der Diskette, das unter DOS 
"Catalog" genannt wird, grundsätzlich verschieden. 

Weiterhin ist die Position der Blocke und Sektoren anders. Es ist 
also nicht so, daß z.B. der Block Nr. 1 dem zweiten und dritten 
Sektor vom Track 0 einer DOS-Diskette entspricht. Die genaue Vertei¬ 
lung ist in der Tabelle 2.5 für einen Track angegeben. 


DOS-Sektor 

-+■ 

! 

entspricht POS-Block 

0 

! 

0 

linke Hälfte 

1 

! 

7 

linke Hälfte 

2 

! 

6 

rechte Hälfte 

3 

i 

6 

linke Hälfte 

4 

! 

5 

rechte Hälfte 

5 

! 

5 

linke Hälfte 

6 • 

\ 

4 

rechte Hälfte 

7 

! 

4 

linke Hälfte 

6 

1 

3 

rechte Hälfte 

9 

j 

3 

linke Hälfte 

10 

! 

2 

rechte Hälfte 

11 

! 

2 

linke Hälfte 

12 

! 

1 

rechte Hälfte 

13 

! 

1 

linke Hälfte 

14 

} 

0 

rechte Hälfte 

15 

! 

-+- 

7 

rechte Hälfte 


Tabelle 2.5: Umrechnungstabelle DOS-Sektoren -> Pos-Blöcke 


Jedoch sind POS- und DOS-Diskette nach der gleichen Methode forma¬ 
tiert, so das es möglich ist, unter Pascal Informationen einer DOS- 
Diskette zu lesen. Hier nützen einem Befehle wie "RESET", "GET" oder 
"BLOCKREAD" freilich nichts. Man ist auf die "UNITREAD/WRITE" Be¬ 
fehle beschränkt. Mit ihnen kann man einzelne Byte-Blöcke von der 
Diskette lesen, wobei die absolute Position dieser Bytes auf der 
Diskette angegeben wird. Es ist damit möglich, unter Pascal DOS- 
Files einzulesen, oder zu schreiben. In diesem Kapitel wird ein Pro¬ 
gramm vorgestellt, daß das sog. VTOC und den Catalog einer DOS-Dis¬ 
kette einliest und ausgibt. 

Die Informationen über den Aufbau des DOS-Inhaltsverzeichnisses ste¬ 
hen im "DOS Manual" auf den Seiten 129-134. 

Wir wollen mit dem Aufbau des sog. "VTOC" beginnen. M VTOC" bedeutet 
"Volume Table Of Contents". Es enthält Informationen darüber, wo der 
Catalog beginnt, allgemeine Informationen über den Aufbau der Dis- 
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kette und eine Liste, welche Sektoren belegt, und welche frei sind. 
Normale DOS-Disketten unterscheiden sich hier nur in dieser Liste. 
Wir wollen das VTOC als einen gepackten Record darstellen. Diesen 
könne wir dann direkt mit “UNITREAD" einiesen. Der Leser sollte nun 
anhand des DOS-Handbuchs auf Seite 132 den Aufbau des Records ver¬ 
folgen . 

Da die Informationen hier in einzelnen Bytes enthalten sind, defi¬ 
nieren wir im Programm zunächst den Typ "BYTE", mit dem Wertbereich 
von 0 bis 255. 

Das erste Byte im VTOC ist unbenutzt, wir nennen es “UNUSEDl“. Das 
zweite gibt an, auf welchem Track sich der erste Sektor des Catalogs 
befindet. Wir nennen es **CATTRK". Das dritte gibt an, bei welchem 
Sektor er beginnt. Es heißt M CATSEC M . Byte 4 enthält die Nummer der 
DOS-Version (“DOSVERS”). Dann folgen zwei unbenutzte Bytes, die wir 
als ein gepackes Feld von zwei Byte auffassen. Darauf kommt die 
Volume-Nummer der Diskette. Wir nennen sie “VOLUME**. 

Die Bytes 7 bis 38 sind wieder unbenutzt. Eigentlich könnte man sie 
wieder als ein gepacked Feld mit 30 Bytes auffassen. Dies wird je¬ 
doch zu Fehlinformationen führen. Der Grund ist, das innerhalb eines 
gepackten Records gepackte Felder bei einem Byte mit gerader Stel¬ 
lenzahl beginnen müssen. Dies liegt daran, daß der interne P-Code- 
Interpreter mit 16-Bit-Werten rechnet. In unserem Fall hätte das zur 
Folge, daß ein gepackes Feld hier bei Byte Nr. 8 beginnen würde. Das 
erste unbenutzte Byte steht hier jedoch schon bei Nr. 7. Alle nach¬ 
folgenden Informationen wären also um ein Byte verschoben, und damit 
nicht mehr richtig. Wir müssen uns hier damit helfen, daß wir zu¬ 
nächst nur ein einzelnes Byte angeben ( "UNUSED3**) und dann erst das 
gepackte Feld (“UNUSED4“). 

Dies würde aber immer noch nicht funktionieren. Nach einem gepacked 
Feld beginnt der nächste Eintrag in dem Record wieder bei einem Byte 
mit gerade Stellenzahl. Wenn unser Feld nun 29 Elemente groß wäre, 
würde die nächste Information im 40. Byte stehen. Sie muß aber aus 
dem 39. kommen. Wir müssen das Feld nochmals kürzen, so daß es eine 
gerade Anzahl von Bytes einnimmt. Danach wird wieder ein einzelnes 
Byte angeben <"UNUSED5"). 

Nachdem wir diese Schwierigkeiten überstanden haben, folgt im 39. 
Byte eine Wert, wieviele Angaben in einem Sektor der Track/Sektor- 
Liste eines jedes Files stehen ("MAXPAIR“). Die Track/Sektor-Liste 
ist im DOS-Handbuch auf den Seiten 128/129 beschrieben. Auf sie soll 
hier nicht weiter eingegangen werden, da wir sie nicht benötigen, um 
den Catalog auszugeben. 

Hierauf folgen 8 unbenutzte Bytes. Da sie bei einem Byte mit gerader 
Stellenzahl beginnen und eine eine gerade Anzahl haben, könne wir 
sie bedenkenlos in einem gepackten Feld zusammenfassen ( “UNUSED6*') . 

Nun kommen zwei Integerwerte. Sie stellen eine Maske dar, die das 
DOS benötigt, um Veränderungen an der Bit-Map (s.u.) vorzunehmen. 
Wir nennen sie "MASK“, werden sie jedoch nicht mehr brauchen. 

Dann folgen Informationen über den Aufbau der Diskette. Zunächst, 
wieviele Tracks sich auf der Diskette befinden ("TRKNO"), dann wie¬ 
viel Sektoren sich in einem Track befinden <"SECNO“) und schließ¬ 
lich, wieviele Byte in einem Sektor stehen (“BYTENO”). 

Nun folgt die schon genannte Liste. in der steht, welche Sektoren 


38 


http://www.robert-tolksdorf.de 


UTILITIES Betriebssystem 


belegt sind, und welche nicht. Sie wird "Bit-Map“ genannt. Da ein 
Sektor nur entweder belegt oder frei sein kann, wird diese Informa¬ 
tionen mit je einem Bit für jeden Sektor dargestellt. Hat das Bit 
den Wert 1, oder true, so ist der jeweilige Sektor frei, ansonsten 
belegt. 

Normale DOS-Disketten haben 35 Tracks. Wir fassen diese Bit-Map als 
ein gepacktes Feld mit 35 Elementen von Typ "TRACKMAP" auf. "TRACK- 
MAP" haben wir vorher definiert als ein gepacktes Boolean-Feld mit 
32 Elementen. Da jeder Track normalerweise jedoch nur 16 Sektoren 
hat, bleiben die Bits 16 bis 31 unbenutzt und haben immer den Wert 
false. 

Die Bytes 196 bis 255 im VTOC sind unbenutzt und heißen "UNUSED7". 

Damit haben wir den Aufbau des VTOCs in einem gepackten Record zu¬ 
sammengefasst. Wir können ihn einiesen, und jede Information an¬ 
sprechen. 

"READINVTOC" liest das VTOC einer DOS-Diskette ein. Dazu benutzen 
wir den "UN1TREAD"-Befehl, wobei wir aus dem Block 136 lesen. Im 
Grunde genommen handelt es sich nicht um einen Block, sondern um 
zwei DOS-Sektoren. Das VTOC befindet auf Track 17, Sektor 0. Wir 
können daraus den entsprechenden Block errechnet. Dieser ergibt sich 
aus 8 « Tracknummer, wozu der Wert hinzugerechnet wird, der sich aus 
der obigen Tabelle für den Sektor ergibt. 8 # 17 + 0 ergibt 136. Da 
wir wissen, daß der 0-te Sektor in der ersten Hälfte des errechneten 
Sektors liegt, brauchen wir keine Bytes zu verschieben, und können 
die Variable "VTOC" direkt einiesen. 

"PRINTVTOC“ gibt dann die VTOC-Informationen aus. Zunächst werden 
die Informationen ausgegeben, die wirklich von Wichtigkeit sind, wie 
Volume-Nummer, Anzahl der Track etc. Dann wird dargestellt, welche 
Sektoren belegt und welche frei sind. Belegte Sektoren werden mit 
einem Stern gekennzeichnet <"#"). 

Danach soll der Catalog ausgegeben. Sein Aufbau ist auf den Seiten 
129-131 im DOS-Handbuch genau beschrieben. 

Nun stellt sich uns ein schon bekanntes Problem. Wollen wir einen 
strukturierten Record zusammenstellen, der direkt eingelesen werden 
kann, wie das VTOC, so ist dies sehr problematisch. Dies hängt wie¬ 
der damit zusammen, daß innerhalb eines gepackten Records alle ge¬ 
packten Felder oder Records bei einem Byte beginnen, dessen Stel¬ 
lenzahl gerade ist. Nun nimmt ein File-Eintrag im Catalog eine unge¬ 
rade Anzahl von Bytes ein. Aufgrund der oben beschriebenen Komplika¬ 
tionen wäre ein strukturierter Record für einen Catalog-Sektor 
äußerst aufwendig und zudem umständlich anzusprechen. Wir gehen ei¬ 
nen anderen Weg. 

In der Prozedur "READINCAT" wird ein Sektor des Catalogs eingelesen. 
Zur Errechnung der Blocknummer bedienen wir uns der Tabelle "SEC- 
LOC". Sie wurde vorher in der Prozedur "INIT" mit den Werten aus der 
obigen Tabelle gefüllt. Der Block wird zunächst in die Variable 
"BLOCK“ eingelesen. Sie ist ein Feld aus 512 Bytes und dient als 
Zwischenspeicher. Befindet sich der Sektor in der rechten Hälfte 
eines Block, so werden in "BLOCK“ 256 Bytes nach links verschoben, 
so daß das erste Element von "BLOCK" in jedem Fall das erste Byte 
des gewünschten Sektors enthält. 

Nun wird der Inhalt des Catalogs aus der Variable "BLOCK" in "CAT" 
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übertragen. Dabei sprechen wir jedes Byte einfach durch einenj Index 
an. 

"CAT" ist ein strukturierter Record von Typ "CATSECTOR". Er ist ent¬ 
sprechend den Angaben des DOS-Handbuchs aufgebaut. Da wir die Infor¬ 
mationen ja aus dem eingelesenen Sektor byteweise in diese Variable 
übertragen können wie die unbenutzten Bytes einfach auslassen. 

Das erste Feld in "CAT" heißt "TRKLINK" und gibt an, auf welchem 
Track der nächste Sektor des Catalogs zu finden ist. "SECLINK" gibt 
an, in welchem Sektor. Haben beide Felder den Wert 0, so ist das 
Ende des Catalogs erreicht. 

Nun folgen sieben File-Einträge. Jeder File-Eintrag ist vom Typ 
"FILEENTRY". Dieser ist wieder ein strukturierter Record. 

Das erste Feld <"TSTRK") hier gibt an, auf welchem Track die Track/- 
Sektor-Liste für dieses File zu finden ist. Ist dieser Wert 0 oder 
255, so ist das File gelöscht. Das zweite ("TSSEC") gibt die Sektor¬ 
nummer der Track/Sektor-Liste an. Nun folgt ein Wert, der angibt, um 
welchen Filetyp es sich handelt. Die Bedeutung dieses Wertes ist auf 
Seite 131 des DOS-Handbuchs erklärt. Die dort angegebenen Informa¬ 
tionen sind allerdings unvollständig, da es noch die File-Typen "S" 
und "R" gibt. Sie sind beide unter DOS bekannt und haben die Werte 6 
bzw. 16. Unser Programm wird auch sie bei der Ausgabe des Catalogs 
berücksichtigen. 

Als nächstes kommt der Filename, der 30 Zeichen lang ist, und 
schließlich die Anzahl der Sektoren, die das File einnimmt. 

Wenn wir nun den Record "CAT" mit den eingelesenen Werten gefüllt 
haben, können wir einen Catalog ausgeben. Dies über nimmt die Proze¬ 
dur "PRINTCAT”. Sie gibt die File-Einträge aus, wobei die Form eines 
"CATALOG"-Kommandos unter DOS übernommen wird. 

Der Vorgang Catalog-Sektor einiesen und ausgeben wird solange wieder 
holt, bis wir am Ende des Catalogs angelangt sind. Dies dauert etwas 
länger als unter DOS. 

Es erschließen sich nun einige Möglichkeiten. Wenn wir den DOS-Cata- 
log lesen können, werden wir ihn auch verändern und zurück¬ 
schreiben können. Wir könnten einen "DOS-Filer" schreiben, der dies 
vornimmt. Oder wir könnten Programme schreiben, die Daten von DOS- 
Disketten übernehmen. Oder man könnte sich einen Assembler schrei¬ 
ben, der ein Programm im DOS-Format erzeugt. Die Möglichkeiten sind 
unbegrenzt, zudem steht einem zur Programmierung das ausgereifte 
Pascal-System zur Verfügung. 

Wichtige Prozeduren: 

"INIT" : Initialisiert die Ümrechnungstabelle 

DOS-Sektoren <—> POS-BlÖcke 

"READINVTOC" : Liest das VTOC einer DOS-Diskette in die 
Variable "VTOC" ein 

"PRINTVTOC" : Gibt anhand von "VTOC" aus, welche 

Sektoren der DOS-Diskette belegt und 
welche frei sind 

"CATALOG" : Gibt das Inhaltsverzeichnis der DOS-Diskette aus 
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"READINCAT" : Liest einen Sektor des Catalogs ein 

"PRINTCAT" : Gibt einen Sektor des Catalogs» d.h. 
7 Einträge aus 


Progr amm ** CAT AL 0(3 . TEXT •• 

program doscat; 

const 

dosunit = 5; 
type 

byte = 0..255; 

< Bitmap fuer einen Track > 

trackmap = packed array CO..313 of boolean; 

< Record fuer VTOC einer DOS-Diskette > 
vtoc_type = packed record. 

unusedl: byte; 

cattrk : byte; < Track des ersten Catalog-Sektor > 

catsec s byte; < Sektor des ersten Catalog-Sektor > 

dosverss byte; < DOS-Version > 

unused2s packed array C4..53 of byte; 

volume : byte; < Volumenummer der Diskette > 

unused3: byte; 

unused4: packed array C8..373 of byte; 
unused5: byte; 

maxpair: byte; < max. Anzahl der Angaben in einem Sektor > 

unused64 packed array C40..473 of byte; < einer T/S-Liste > 

mask ; packed array CO..13 of integer; < Maske fuer Bitmap > 

trkno s byte; < Anzahl der Tracks auf der Diskette > 

secno : byte; < Anzahl der Sektoren pro Track > 

byteno : integer; < Anzahl der Bytes in einem Sektor > 
bitmap : packed array CO..343 of trackmap; < Bitmaps fuer > 

unused7s packed array C196..2553 of byte; < 35 Tracks > 

end; 

< Eintrag fuer ein File > 
file^entry = record 

tstrk : byte; f Track der T/S-Liste > 
tssec : byte; { Sektor der T/S-Liste > 
typ : byte; < Filetyp } 
name : stringC303; < Filename*> 
seccnti integer; < Anzahl der belegten Sektoren > 
end; 

■C Record fuer einen Sektor des Catalogs } 
cat_sektor - record 

trklink: byte; -C Zeiger auf naechsten Catalog Sektor (Track) > 
seclink: byte; < Zeiger auf naechsten Catalog Sektor (Sektor) > 
entriss: packed array CI..73 of file_entry; < 7 Eintraege > 
end; { in einem Sektor > 

var vtoc:vtoc_type; 
cat:cat_sektor; 
secloc:arrayCO..153 of record 

block:integer; 
right:boolean; 
end; 

procedure init; { Initialisert Sektor->Block-Umrechnungstabeile > 
begin 

seclocC 03.block:=0; seclocC 03,right:=false; 
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seclocC 13.block:=7; 
seclccC 23.block:=6; 
seclocC 33.block:=6; 
seclccC 43.block:=5; 
seclocC 53.block:=5; 
seclocC 63.block:=4; 
seclocC 73.block:=4; 
seclocC 83.block: a 3; 
seclocC 93.block:=3; 
seclocC103. block :«2; 
sec 1 ocCl 13. b 1 ock-t »2; 
seclocC123.block:=1; 
seclocCl33.blockt°l; 
seclccC143.blocki»0; 
seclccC153.block:»7; 
end; 


seclocC 13.right: s false; 
seclocC 23.right: s true; 
seclocC 33.right: a false; 
seclocC 43.right:»true; 
seclocC 53«right:**false; 
seclocC 63.right:=true; 
seclocC 73.right:«false; 
seclocC 83.right:strue; 
seclocC 93.right: a false; 
seclocC103.right:=true; 
seclocC113.right:«false; 
seclocCl23.right:=true; 
seclocC133.righti-false; 
seclocC143.right:=true; 
seclocC153.right: a true; 


procedure readin_vtoc; < Liest das VTOC von einer DOS-Diskette ein > 
begin 

unitread(dosunit,vtoc,256,136); 
end; 


procedure print_vtoc; < Gibt aus, welche Sektoren belegt, und welche ] 
var < frei sind > 

sector,track,index:integer; 
begin 

write(chr(12>); 
with vtoc do 
begin 

writeln('Catalog. bei T',cattrk,',S',catsec, 

' OOS Ver. ',dosvers,' Vol ' ,volunte); 
writelnCtrkno,' Tracks ',secno,' Sektoren ', 
byteno,' Bytes/Sektor'); 

writeln; 

writelnC' 1111111111222222222233333'); 

writelnC' 01234567890123456789012345678901234'); 
writeln; 

for sector: a 0 to 15 do 
begin 

writef'S',sector:2,' '); 
for track:= 0 to 34 do 
begin 

if sector > 7 then indexs=sector-8 
eise indexi a sector+8; 
if bitmapCtrack,index3 then write(' ') 
eise writef'#'); 

end; 

writeln; 

end; 

end; 

end; 

procedure catalog; < Gibt den Catalog einer DOS-Diskette aus > 
var t,s:integer; 

1 inecnt tinteger; 

procedure readin_cat(track,sector:integer); I Liest einen Sektor ein, 
var block : packed array C0..5113 of byte; < uebertraegt ihn in den 
entr,ent:integer; < Record 'cat' > 

begin 

< Sektor einiesen > 
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unitread(dosunit,block,512,136+seclocCsector3.block); 

< falls der Sektor sich im zweiten Teil des Blocks befindet, > 

< um 256 Bytes nach links verschieben > 
if seclocCsector3.right then 

moveleft(blockC2563,blockC03,256); 

■C Daten interpretieren > 

with cat do 
begin 

trklink:=blockC13; 
seclink;=blockC23; 
for entr:=l to 7 do 
with entriesCentr3 do 
begin 

tstrks=blockCll+(entr-l>*35+03; 
tssecs=blockCll+(entr-l>*35+13; 
typ :=blockCll+(entr-l>*35+23; 
narae:=' '; 

for cnt:=l to 30 do 

nameCcnt3;=chr(blockCll+(entr-l)*3S+2+cnt3); 
seccnt:=b1ock CI1 + (entr-1)*35+333; 
end; 

end; 

end; 

procedure print^cat; < Fileeintraege ausgeben > 

var entriinteger; 

begin 

with cat do 
begin 

for entr:=l to 7 do 
with entriesCentr3 do 

if not (tstrk in CO,2553) then 
begin 

if linecnt=20 then 
begin 
writeln; 

write('Bitte <ret> druecken'>; 
readln; 
linecnt:=0; 
write(chr(12> >; 
end; 

if typ>127 then begin 

writeC'*'>; 
typ: a typ-128; 
end 

eise write(' '>; 

case typ of 

0: writeC'T '>; 
ls writet'I ')? 

2 : writeC'A '); 

4: write('B '); 

8 : write('S '); 

16: writeC'R '> 
end; 

if not (typ in C0,1,2,4,8,163> 
then write(' ? '); 
writeCseccnts3); 
writelnt' ',name>; 
linecnt:-linecnt+l; 
end; 
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end; 

end; 

begin 

t:=vtoc•cattrk; 
s:=vtoc.catsec; 
linecnt:=0; 

< Catalog-Sektoren bis zum Ende einiesen und ausgeben > 
repeat 

readin w cat(t,s); 
print_cat; 
t:=cat.trklink; 
s:-cat.seclink; 
until (s=0) and (t=Q); 
end; 

begin 

init; 

write(chr(12),'Bitte OOS-Oiskette in Laufwerk '»dosunit,' einlegen. <ret>'); 

readln; 

readin_vtoc; 

print_vtoc; 

writeln; 

writef'Bitte <ret> druecken'); 
readln; 

write(chr(12)); 

catalog; 

writeln; 

write("Bitte OOS-Diskette entfernen <ret>')j 
readln; 
end. 


2 - © F>OS 1 - X und IDOS 3.3 OLXJtf 
q x ri ö x* Di sket te 

Wir wissen inzwischen. wie man von Pascal aus das POS-Directory und 
auch den DOS-Catalog anspricht. In diesem Kapitel werden wir dieses 
Wiesen anwenden, um ein besonderes Formatier-Frograram au schreiben. 
Das Ziel ist es. auf einer einzigen Diskette sowohl DOS- als auch 
POS-Dateien zu haben. 

Dazu müssen wir die Diskette in zwei Bereiche aufteilen. je einen 
für jedes Betriebssystem. Pascal erwartet das Directory auf Track 0 
und DOS den Catalog auf Track 17. Diese Stellen sind verbindlich. 
Nun ergeben sich daraus aber keine Probleme. Wir teilen unsere Dis¬ 
kette so auf, das die ersten 16 Tracks von POS und die Tracks 17 bis 
35 von DOS benutzt werden. Diese Aufteilung findet sich in Bild 
2 . 6 . 1 . 


4-4 

! Track(s) ! belegt mit • 

{2SSSS==S333SSSS===SSSSSSSBSBSSS{ 

! 0 ! POS-Directory ! 

,--1 

■ 1-16 ! POS-Dateien ! 

I-1 

! 17 ! DOS-Catalog ! 

j- j 

! 17-35 ! DOS-Dateien ! 

+-4 


Bild 2.6.1: Die Aufteilung 
einer Diskette 
in DOS und POS 
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Es ergibt sich darurch nur eine Einschränkung, nämlich, daß die Dis¬ 
kette nur unter Pascal gebootet werden kann. Um DOS zu booten werden 
die Tracks 0 bis 2 benötigt. Diese sind hier aber von Pascal belegt. 
Das Booten unter POS bereitet keine Probleme. 

Wie erreichen wir aber, daß DOS und POS nicht auf die Diskettenbe¬ 
reiche zugreifen, die für das Jeweils andere Betriebssystem reser¬ 
viert sind ? ' Wir müssen das Directory und den Catalog darauf ein¬ 
richten . 

Für POS sind die Tracks 0 bis 16 reserviert. 17 Tracks ergeben 17*6= 
136 Blöcke. Da in Directory in Feld “BLOCKNO” angegeben ist, auf 
wieviele aufeinanderfolgende Blöcke vorhanden sind, geben wir hier 
einfach den Wert 135 für den letzten Block an. Für POS hat die Dis¬ 
kette nun nur 16 Tracks. Die Tracks 17 bis 35 existieren also theo¬ 
retisch nicht, und werden auch nicht angesprochen. Damit ist der 
DOS-Teil der Diskette geschützt. 

Unter DOS stehen die Informationen über die Diskette selber im VTOC. 
Es gibt hier zwar auch die Angabe "TRKNO“, die angibt, wieviele 
Tracks auf der Diskette vorhanden sind. Wir können diese Angabe je¬ 
doch nicht für unsere Zwecke benutzen. Der Grund ist, daß an dieser 
Stelle steht, wieviele Tracks, beginnend bei Track 0 es auf der Dis¬ 
kette gibt. Wenn wir hier 16 (35 vorhandene Tracks minus 17 reser¬ 
vierte) hineinschreiben würden, hätte DOS Zugriff auf die Tracks 0 
bis 18. Genau das wollen wir aber verhindern, "TRKNO" hilft uns also 
nicht weiter. 

Anstatt dessen benutzen wir einfach die "BITMAP“, die angibt, welche 
Sektoren belegt sind, und welche nicht. Wenn wir alle Sektoren, die 
für POS reserviert sind einfach als "belegt" kennzeichnen, wird DOS 
nicht auf sie zugreifen, und der POS-Teil der Diskette ist geschützt 

Bei unserem Programm gehen wir davon aus, daß die zu zu bearbeitende 
Diskette schon formatiert ist. Dies sollte zweckmäßigerweise unter 
POS geschehen. Ein unter DOS formaterte Diskette unterscheidet sich 
von einer Pascal-Diskette auch darin, daß die physikalische Anord¬ 
nung * der Sektoren auf der Diskette anders ist. Für den logischen 
Zugriff hat dies keine Folgen, jedoch ist diese Anordnung unter DOS 
nicht optimal. Wenn wir eine unter DOS formatierte Diskette als 
Pascal-Diskette verwenden, wird der Zugriff auf die Diskette wesent¬ 
lich langsamer. 

Unser Formatier-Programm formatiert im Grunde genommen die Diskette 
garnicht, es schreibt nur die nötigen Directory- und Cataloginforma- 
tionen. Deshalb gliedert es sich auch in zwei Teile. 

Der erste Teil, "FORMATDOS" schreibt das VTOC und den Catalog auf 
die Diskette. Den Aufbau des VTOC übernehmen wir aus Kapitel 2.5. 
Das VTOC wird zunächst in der Prozedur "SETUPVTOC" mit den gewün¬ 
schten Informationen gefüllt. Bis auf "BITMAP" werden alle Felder so 
gesetzt, wie 6ie auf einer normalen DOS-Diskette Vorkommen. Hier 
darf man sich allerdings nicht in allen Fällen von den Angaben auf 
Seite 132 des DOS-Handbuchs leiten lassen. Die hier angegebenen 
Werte sind teilweise falsch. So muß z.B. im Byte 35 ein 10 (hex) 
anstatt eines OF(hex) stehen. 

Im Feld "BITMAP" werden, wie oben beschrieben, die Tracks 0 bis 16 
als belegt vermerkt. Track 17 muß auch noch belegt werden, da hier 
ja der Catalog steht. Danach wird mit der Prozedure "WRITEVTOC" das 
VTOC auf die Diskette gebracht. 
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Das Schreiben des Catalogs ist relativ einfach. Wenn man sich eine 
neu formatierte DOS-Diskette z.B. mit einem sog. Sektor-Editor an¬ 
schaut, stellt man fest, daß im Catalog bis auf die Bytes 1 und 2 
nur der Wert 0 vorkommt. Diese zwei Bytes geben an, auf welchem Sek¬ 
tor die Fortsetzung des Catalogs zu finden ist. Die Prozedur "WRITE- 
CAT" setzt diese Bytes entsprechend und schreibt insgesamt 15 Sekto¬ 
ren auf die Diskette auf dem Track 17. Wie aus Kapitel 2.5 bekannt 
sind die Sektoren etwas anders angeordnet als die POS-Blöcke. Um 
hier abzuhelfen benuzten wir wieder die Tabelle "SECLOC". 

Mit der Prozedur **FORMATPOS M wird das Directory auf die Diskette 
geschrieben. Das Aussehen des Directorys übernehmen wir aus Kapitel 
2.2. In der Prozedur "SETUPDIR" wird es mit den nötigen Informatio¬ 
nen gefüllt. Als Diskettenname geben wir "BLANK" an. Weiterhin wird 
wie oben beschrieben, die Anzahl der Blöcke auf 136 begrenzt. Das 
Datum lesen wir aus dem Speicher aus. Die Vorgehensweise hierfür ist 
in Kapitel 3.4 beschrieben. Schließlich wird das Directory mit der 
Prozedur "WRITEDIR" auf die Diskette geschrieben. 

Damit ist das Programm abgeschlossen. Man kann nun die Diskette 
unter DOS und POS verwenden. Dabei hat man fast gleichviel Platz, 
für POS 68 KByte und für DOS 72 KByte. 

Der Leser kann natürlich den Raum für POS weiter einschränken, indem 
im Directory weniger Blöcke vermerkt und im VTOC die entsprechenden 
Sektoren freigesetzt werden. 

Wichtige Prozeduren 

"GETUNITNO'* : Fragt den Benutzer, in welchem Laufwerk 
die zu bearbeitende Diskette liegt. 

"FORMATDOS H :• Schreibt die nötigen DOS-Informationen auf 
die Diskette 

"FORMATPOS" : Schreibt die nötigen POS-Informationen auf 
die Diskette 


Programm "DOSPOS.TEXT" 

Programm dospos; 
type 

< POS-Direetory Definitionen > 

vname=stringC73; < Ein Volumename > 
fname=*stringC153; < Ein Filename > 
daterec = packed record i das Datum > 
month: 0..12; 
day: 0..31; 

yean 0..1G0; 
end; 

fkind = (vol,bad,code,text,info,data,graf,foto,secr)| < moegliche Filetypen > 
direntry = record < ein Eintrag im Directory > 

firstblocks integer; { Block, bei dem das File anfaengt > 
lastblock; integer; i Block, bei dem das File endet > 
case filekindx fkind of 

{ nur beim Eintrag #0 > 
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vol f secr: (diskvol: vname; < Name der Diskette > 
blockrto: integer; < Anzahl der Bioecke > 
fileno:integer; < Anzahl der Files > 
accesstime: integer; < unbenutzt > 
lastboot: daterec); < Datum, an dem die > 
< zuletzt benutzt wurde > 

< Normale File-Eintraege > 
bad,code,text, 
info,data,graf, 

foto: (filename: fname; < Filename > 

endbytes: 1..512; < Bytes im letzten Block > 
lastaccess: daterec) < Datu, an dem das File > 

end; 

direc = arrayC0..773 of direntry; { Directory mit 7fl Eintraegen > 

< DOS-VTOC Definition > 
byte = 0..255; 

trackmap = packed array CO..313 of boolean; 
vtoc_type = packed record 

unusedl: byte; 
cattrk s byte; 
catsec : byte; 
dosvers: byte; 

unused2: packed array C4..53 of byte; 
volume : byte; 
unused3; byte; 

unused4: packed array C8..373 of byte; 
unused5: byte; 

. maxpair: byte; 

unused6: packed array C40..473 of byte; 
mask : packed array CO..13 of integer; 
trkno : byte; 
secno : byte; 
byteno : integer; 

bitmap s packed array CO..343 of trackmap; 
unused7: packed array CI96..2553 of byte; 
end; 

var unitno:integer; 

procedure get_unitno; < Fragt Benutzer, auf welchem Laufwerk > 
var ch:char; { formatiert werden soll > 

begin 
repeat 

writeln(chr(12) ,'D0S-P0S FORMATTER PROGRAMM; 
writef'FORMAT UHICH DISK (4,5) ? 
read(ch); 

until ch in C'4','5 # 3; 
unitno:«ord(ch)-48; 
writeln; 

writelnC'NOW FORMATTING DlSK IN DRIVE ,unitno); 

end; 

procedure formatdos; < Formatiert den DOS-Teil der Diskette > 
var seclocsarrayCO..153 of record 

black:integer; 
right:boolean; 
end; 

vtoc:vtoc_type; 
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< Initialisert Block-Sektor Umrechnungstabelle > 


procedure init; 
begin 

seclocC 03.block:=0; seclocC Q3.right:=false; 
seclocC 13.black:=7; seclocC 13.right:=false; 
seclocC 23.block:=6; seclocC 23.right:=true; 
seclocC 33.block:=6; seclocC 33.righbs=false; 
seclocC 43.block:=5; seclocC 43.right:»true; 
seclocC 53.black:=5; seclocC 53.right:=false; 
seclocC 63.block:=4; seclocC 63.right:=true; 
seclocC 73.block:=4; seclocC 73.right:=false; 
seclocC 83.block:=3; seclocC 83.right:=true; 
seclocC 93.block:=3; seclocC 93.right:=false; 
seclocC103.black:=2; seclocC103.right:=true; 
seclocC413.block:=2; seclocC113.right:=false; 
seclocC123.block:=1; seclocC123.right:=true; 
seclocC133.block:=1; seclocC133.right:=false; 
seclocCl43.block:=0; seclocC143.right:=true; 
seclocC153.block:=7; seclocClS3.right:=true; 
end; 


procedure setup_vtoc; < Fuellt VTOC mit den gewuenschten Informationen > 

var ent,s:integer; 

begin 

uith vtoc do begin 
unusedl:=0; 

cattrk:=17; < Catalog auf Track 17 > 

eatsec:-15; < Sektor 15 > 

dosvers:=3; < Dosversion > 

f il lchar(unused2,sizeof (urtused2),chrCO)); 
volume:=254; i Volume > 
unused3:=0; 

fillchar(unused4,sizeof(unused4),chr(0)); 
unused5:=0; 

maxpair:=122; < max. Anzahl der Angaben in einer T/S Liste > 

fillchar(unused6,sizeof(unused6),chr(0)); 

maskC03:=-l; -C alle 16 Bits auf 1 setzen > 

maskC13:«0; < alle 16 Bits auf 0 setzen > 

trkno:=35; < 35 Tracks mit je > 

seeno: =16; -C 16 Sektoren mit je > 

byteno:=256; { 256 Bytes > 

fillchar(bitmap,sizeof(bitmap),chr(0)); < Alle Sektoren belegen > 
for cnt:=18 to 34 do f Tracks 18 bis 34 frei > 
for 55=0 to 15 do 
bitmapCcnt,s3:=true; 

fillchar(unused7,sizeof(unused7),chr(0)); 
end; 
end; 

procedure write_vtoc; < Schreibt VTOC auf die Diskette > 
begin 

unitwrite Cunitno,vtoc,256,136); 
end; 

procedure write_cat; < Schreibt einen leeren Catalog auf die Diskette > 
var block : packed array CO..5113 of byte; 

of f set,t,sector:integer; 
begin 
t:=17; 

for sector: = 15 downto 1 do 
begin 

•C Erst ganzen Block einiesen, da nur eine Haelfte veraendert wird > 
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unitread(unitno,b1ock,512,136+sec1ocCsector3.b1ock); 

{ linke oder rechte Haelfte veraendem ? > 
if seclocCsector3.right 
then offset:=256 
eise offsets^O; 

-C ganzen Sektorinhalt loeschen > 
fillchar(blockCöffset3,256,chr(0>>; 

< Zeiger auf naechsten Catalog-Sektor setzen > 
if sectorM then begin 

blockCl+offset3:=t; < Links setzen > 

blockC2+off set3»«sector-1j 
end 

eise begin < Ende des Catalogs > 
b1ock CI+of f set3:=0 ; 
blockC2+offset3s=0; 
end; 

< Block zurueckschreiben > 

unitwrite(unitno,block,512,136+sec1ocCsector3.block); 
end; 

end; 


begin 

init; 

setup_vtcc; 
write_vtoc; 
vrite_cat; 
end; 


procedure formatpos;.< Formatiert den POS-Teil der Diskette > 
var directorysdirec; 


procedure setup_dir; < Directory mit den gewuenschten Informationen fuellen > 
var sprchdatum : record case boolean of 

true i (datum:~daterec); 
false: (adresse:integer); 
end; 


begin 

uith directoryC03 do begin < Nur Eintrag #0 setzen > 


firstblock:-0; < 

lastblock:=5; < 

filekind:=vol; < 

diskvolBLANK'; < 
blockno:=135; < 

filenos^O; < 

accesstime: & 0; 

sprchdatum.adresse:= -21992; 
1astboot:=sprchdatum.datum~; 
end; 
end; 


Directory-Beginn 
Directory-Ende 
Filetyp: vol 
BLANK als Name 
Nur 135 Bioecke! 
Noch keine Files 


{ Siehe Liste in Kap. 3.2 > 
< Datum wie im Speicher > 


procedure write_dir; < schreibt das Directory auf die Diskette > 
begin 

unitwrite(unitno,directory,sizeof(directory),2); 
end; 


begin 

setup.dir; 

write_dir; 

end; 
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begin 

get_unitno; < 'unitno' einiesen 
format.dos; < DOS-Teil formatieren 
format_pos; < POS-Teil formatieren 
write< 7 PUT SYSTEM DISK IN DRIVE #4 
readlnj 
end. 


> 

> 

> 

«RET»')* 


2-7^ Foto , & ±r* neuer Filetyp 

Wie wir in Kapitel 2.2 gesehen haben, stellt POS eine ganze Reihe 
von Filetypen zur Verfügung. In Apple-Pascal werden normalerweise 
aber nur die Typen Text, Code und Data verwendet. 

Mit den zwei Prozeduren "PIXSAVE" und "PIXLOAD" nutzen wir einen der 
bisher nicht genutzten Filetypen aus, nämlich den Foto-Typ. Gleich¬ 
zeitig ermöglichen wir es, eine Graphikseite auf Diskette zu spei¬ 
chern. Dies war bishar nicht möglich. 

Dazu ist natürlich ein Trick notwendig. Er besteht darin, den Inhalt 
der Graphikseite zu einer Variablen zu machen. Dabei fassen wir eine 
8 KByte große Seite als PACKED ARRAY mit 8191 Bytes auf. Dann ist es 
noch nötig, unsere Variable bei Speicherstelle 8192 (hexadezimal 
S2000) beginnen zu lassen.'Dies wird mittels eines Zeigers erreicht. 
Die genaue Arbeitsweise ist in Kapitel 3.1 beschrieben. 

Bis jetzt können wir eine Graphikseite unter einem bestimmten Namen 
auf die Diskette schreiben. Wie weisen wir diesem File den Typ FOTO 
zu ? 

Dies ist ziemlich einfach. POS setzt nämlich die Filetypen in Abhän¬ 
gigkeit vom Filenaraen. Endet er mit ".FOTO", so ist es ein Fotofile. 

Der Leser kann dies ausprobieren, indem er in den Filer geht und mit 
dem M)ake-Kommando einige Files "macht". Dabei sollten Namen benutzt 
werden, die mit ".FOTO", ".INFO" oder ".GRAF" enden. Wird dann mit E 
das Directory aufgelistet, dann erscheinen in der letzten Spalte die 
ungewohnten, bis jetzt ungenutzten Filetypen. 

An unsere zwei Prozeduren wird also eine Filename übergeben, an den 
die Endung ".FOTO" angehängt wird. 

Wichtige Variablen und Typen 

"BILD" : 8191 Bytes großes Feld (Entspricht der Größe 
einer Hires-Seite) 

1 - 

"BILDVAR" : Record, dessen Adresse im Speicher mittels 
eines Zeigers festgelegt werden kann. 

Entspricht der Struktur in Kapitel 3.1, nur 
daß hier nicht 1, sondern 6191 Bytes als 
Daten genommen werden. 

“PIX" : File für ein Hiresbild 

Wichtige Prozeduren 

"PIXSAVE" : Hängt ".FOTO" an den Filenamen an und legt 

die Variable "X" von Typ "BILDVAR" über die 
Hires-Seite. Diese wird dann mit "PUT” in 
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das File "PIX" geschrieben. 

"PIXLOAD" : Hängt ".FOTO" an den Filenamen an und liest 

mit "GET" ein Hires-Bild aus dem File "PIX". 
Legt dann die Variable "X" über die 
Hires-Seite und holt den Inhalt des Bildes 
aus dem Filepuffer. 


Progamm. *' F'OTO - TEXT ** 

procedure pixsave <filename:string); < schreibt ein Bild aus > 

< dem Hiresspeicher auf die Diskette > 
type bild = packed arrayCO..81913 of 0..255; 
bildvar = record case boolean of 

true: (adresse:integer); 
f alse: (zeigen "bild) 
end; 

var pix: file of bild; 
x: bildvar; 

begin 

filenarae:=concat(filename,'.F0T0 # ); 
x.adresse:=8192; 
pix*:=x.zeiger*; 
rewrite(pix,filename); 
put(pix); 
close(pix,lock); 
end; 

procedure pixload <filename:string); < laedt ein Bild von der > 

< Diskette in den Hiresspeicher > 
type bild = packed arrayCO..81913 of 0..2S5; 
bildvar = record case boolean of 

truet (adresse:integer); 
false: (zeigen *bild) 
end; 

var pix: file of bild; 
x: bildvar; 

begin 

filename:=concat(filename,'.FOTO'); 
reset(pix,filename); 
get(pix); 

closeCpix,normal); 
x.adresse:=8192; 
x,zeiger*:=pix*; 
end; 


Wer mit den zwei Prozeduren arbeitet wird zweierlei feststellen. 
Zunächst geht das Laden eines Bildes entschieden schneller als unter 
DOS 3.3. Dies hängt damit zusammen, daß POS allgemein schneller als 
DOS ist, nicht nur beim Laden von Fotos. Die zweite Eigenart der 
Prozeduren ist ein Nachteil. Beide verbrauchen nämlich über 8 KByte 
Speicherplatz, während sie aufgerufen sind. Ist durch das Hauptpro¬ 
gramm schon viel Speicher verbraucht, so kann es zu einem "STACK 
OVERFLOW"-Error kommen, der Datenverlust bedeutet. Han kann hier ab¬ 
helfen, indem man das Programm segmentiert. 
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2.Q Text f i 1 e s und C o d e f ±JLös 

In diesem Kapitel werden wir näher auf den Aufbau von Text- und 
Codefiles eingehen. Bei Textfiles wird dargestellt, wie die Editor- 
Informationen zu Beginn eines jeden Textfiles aussehen und bei den 
Codefiles werden wir uns das sogenannte “Segment Dictionary" an¬ 
schauen . 

Das Format von Textfiles ist im "Apple Operating System" Handbuch 
auf der Seite 266 beschrieben. Die dort angegebenen Informationen 
sind jedoch unvollständig. Es wird nur gezeigt, welche Bedeutung die 
sogenannten "DLE"'s haben. Auf sie gehen wir in Kapitel 5.2 näher 
ein. Uber den Aufbau der Editorinformationen ist jedoch nichts vor¬ 
handen . 

Bei jedem Textfile sind die ersten zwei Blöcke reserviert für Infor¬ 
mationen, die der Editor benötigt. Erst im dritten Block beginnt der 
eigentliche Text. Daher nimmt ein leeres Textfile auch mehr als 
einen Block auf der Diskette ein. Die Informationen für den Editor 
sind im wesentlichen die, die man im Editor mit dem "SE"-Kommando 
verändern kann. Z.B. rechter oder linker Rand sind solche Werte. 
Wird ein Textfile z.B. mit "RESET" angesprochen, so werden die 
ersten zwei Blöcke automatisch überlesen. 

Wie fast alles in POS, lassen sich auch diese Editor-Informationen 
mit einem Record darstellen. Er ist in Bild 2.6.1 dargestellt. 


TEXTINFO: PACKED 
UNUSED1 
MARKERNAME 
UNUSED2 
MAHKERADHE00B 
AUTOINDENT 
FILLING 
TOKENDEF 
LEFTMARGIN 
RIGHTMARGIN 
PARAMARGIN 
COMMANDCH 
DATECREATED 


LASTUSED 


RECORD 

PACKED ARRAYC0..33 OF CHAR; 
PACKED ARRAYCO..9,0..73 OF CHAR; 
PACKED ARRAYC 0. .93 OF CHAR; 
PACKED APPAYtd::9J DP lNTEÖEBi 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

CHAR; 

PACKED RECORD 


UNUSED3 

END; 


MONAT 

0 . . 

12 

TAG 

0 . . 

31 

JAHR 

0 . . 

99 

END; 



PACKED RECORD 

MONAT 

0 . . 

12 

TAG 

0. . 

31 

JAHR 

0. . 

99 

END; 



PACKED ARRAYC0. 


Bild 2.8.1: Ein strukturierter Record für die Editorinformationen 


Wir gehen nun jedes einzelne Feld durch, und erklären seine Bedeu¬ 
tung . 

Das erste Feld "UNUSED1" besteht aus 10 Bytes, und ist unbenutzt. 
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Darauf folgt eine Liste der Namen der Marken ( M MARKENNAME"). Es gibt 
maximal 10 Marken mit je 6 Zeichen. Sie werden hier als ein Feld von 
einzelnen Zeichen dargestellt. Ist das erste Zeichen eines M&rkenna** 
inon«? oin CIIR<n>, **n i nl. rliOnn Mnrkn nicht gnsntzt. Dnnn kommen wie¬ 
der 10 unbenutzte Bytes ("UNUSED2"). 

Das Feld "MARKEFADRESSE“ enthält die Positionen der 10 Marken. Diese 
sind Integerwerte und geben an, auf welches Zeichen, relativ zum 
Textbeginn, eine Marke zeigt. 

Nun folgen die Informationen, die mit dem "SE"-Kommando angezeigt 
und verändert werden können. "AUTOINDENT" , "FILLING’ 1 und "TOKENDEF" 
geben an, ob die jeweilige Option gesetzt ist oder nicht. "LEFT- 
MARGIN","RIGHTMARGIN" und "PARAMARGIN" erhalten die Werte für den 
linken und rechten Rand, und wieweit bei einem neuen Absatz einge¬ 
rückt werden soll. "COMMANDCH" enthält ein reserviertes Zeichen. 
Wenn das "M)argin"-Kommando eingegeben wird, und der Editor trifft 
auf dieses Zeichen am Beginn einer Zeile, so wird diese Zeile nicht 
neu formatiert. Dies ist nützlich, wenn man ein Formatierprogramm 
hat, in dem die Formatkommendos im Text enthalten sein müssen. Diese 
Kommandos fangen oft z.B. mit einem Punkt an, und gehören nicht zum 
eigentlichen Text. 

Die nächsten zwei Einträge ("DATECREATED" und "LASTUSED") geben an, 
wann der Text zum erstem Mal, und wann er zuletzt editiert wurde. 
Beide enthalten ein Datum, das als ein gepackter Record aus Tag, 
Monat und Jahr dargestellt wird. 

Schließlich folgen noch 380 unbenutzte Bytes ("UNUSED3"). 

Insgesamt ist dieser Record 512 Bytes groß. Er würde auf der Disket¬ 
te einen Block einnehmen. Jedoch sind bei Textfiles zwei Blöcke 
reserviert. Der zweite Block ist unter Apple Pascal 1.1 unbenutzt. 
Er wird von dem Standardeditor nicht angeprochen und ist mit dem 
Wert 00 gefüllt. Es gibt jedoch Editoren, die diesen zweiten Block 
für weitere Informationen nutzen. Auch könnte es eines Tages einen 
neuen Standardeditor geben, der auch beide Blöcke benutzt. Dann 
wären alle alten Textfiles schon darauf vorbereitet. Im Moment je¬ 
doch geht mit jedem Textfile ein Block Diskettenplatz unbenutzt ver¬ 
loren. 

Man kann diesen Record direkt mit der "BLOCKREAD" Prozedur aus dem 
ersten Block eines Textfiles einiesen. Dies ist in Kapitel 5.1 demon¬ 
striert . 

Der Aufbau von Codefiles ist im "Apple Pascal Operating System" auf 
den Seiten 266 bis 270 genau beschrieben. Wir wollen ihn hier noch¬ 
mals durchgehen. Es schließt sich ein Programm an, das die Informa¬ 
tionen über ein Codefile einliest und auf dem Bildschirm ausgibt. 

Block 0 (d.h. der erste Block) eines jeden Codefiles enthält das 

sogenannte "segment dictionary". Es enthält Informationen über jedes 
Segment des Codefiles. Hier ist anzumerken, daß im Grunde genommen 
jedes Codefile segmentiert ist. Bei einem normalen Programm, das 
nicht die "SEGMENT"-Anweisung benutzt, wird nur das erste Segment 
benutzt. Andere Programme können bis zu 15 weitere Segmente benutzen 

Das "segment dictionary“ ist ein strukturierter Record. Die ersten 
fünf Einträge sind Felder mit 16 Elementen, je eins für jedes Seg¬ 
ment . 
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Der erste Eintrag "DISKINFO" gibt mit den Einträgen "CODELENG" und 
"CODEADDR“ an, wie lang der Code für ein Segment ist, und wo im File 
er beginnt. Dann folgen die Namen der Segmente (“SEGNAME"). Jeder 
Name kann 7 Zeichen lang sein. Der Name des ersten Segments ent¬ 
spricht immer dem Namen, der hinter der Anweisung "PROGRAM" am An¬ 
fang eines jedes Programmtextes steht. 

Im Eintrag "SEGKIND" folgt eine Angabe darüber, um was für ein Seg¬ 
ment es sich handelt. Hier gibt es 8 Möglichkeiten. 

Bei "LINKED" handelt es sich um einen Code, der so ausführbar ist. 
Eventuelle Units oder Externais sind schon eingebunden, oder es kom¬ 
men keine vor. 

"HOSTSEG" ist Code, der Externais aufruft. Diese sind noch nicht 
eingebunden, wodurch der Code noch nicht ausführbar ist. "SEGPROC" 
wird auf dem Apple nicht benutzt. 

Bei einem "UNITSEG" handelt es sich um eine Unit. Sie ist nicht aus¬ 
führbar, und muß erst noch in ein Programm eingebunden werden. 

Ein "SEPRTSEG"-Code ist einzeln compiliert worden. Das ist unter 
Apple-Pascal * nur der Fall bei Assemblerunterprogrammen. Der Code, 
den der Assembler erzeugt, hat diesen Typ. 

"UNLINKED1NTRINS" bezeichnet Code für eine Intrinsic Unit. Es wurden 
allerdings notwendige Units oder Externais noch nicht eingebunden. 
Dagegen ist "LINKEDINTRINSIC" eine komplette Intrinsic-Unit, die 
fertig ist. Dies trifft bei allen Units der "SYSTEM.LIBRARY" zu. 

Der Typ “DATASEG“ wird zusammen mit einer Intrinsic-Unit verwendet. 
Er gibt an, wieviele Bytes die entsprechende Intrinsic-Unit für 
Variablen benötigt. Diese werden daraufhin reserviert. Z.B. die 
"Turtlegraphics" Unit hat ein solches Datensegment. 

Der nächste Eintrag im "segment dictionary“ heißt "TEXTADDR". Wenn 
ein Programm, das eine normale oder eine Intrinsic-Unit benutzt, 
compiliert wird, benötigt der Compiler Informationen über die in der 
Unit enthaltenen Prozeduren und Funktionen. Diese werden dann in der 
Unit im Textformat bereitgehalten. "TEXTADDR" gibt an, an welcher 
Stelle innerhalb des Unit-Codes sie zu finden sind. Handelt es sich 
nicht um eine Unit, so steht hier immer der Wert Null. 

Als nächstes kommen einige weitere Informationen über ein Segment 
<"SEGINFO">. In "SEGNUM" steht, unter welcher Segmentnummer das je¬ 
weilige Segment intern laufen soll. Diese Nummer kann von 0 bis 255 
gehen und hat mit der Nummer des Segments innerhalb des Codefiles 
nichts zu tun. 

"MTYPE" gibt an» um welchen Code es sich handelt. Das UCSD-Pascal- 
System gibt es auf verschiedenen Computern mit verschiedenen Prozes¬ 
soren. Wenn z.B. in diesem Feld der Wert 8 steht, so handelt es sich 
um eine Assemblerroutine für den 6800-Prozessor. Der Apple-6502 hat 
den Wert 7. Der normale P-Code auf dem Apple erhält den Wert 2. Bei 
Apple-Files kommt auch noch der Wert 0 vor, der angibt, daß es sich 
um Code handelt, der nicht identifiziert werden konnte. 

Der Eintrag "VERSION” gibt an, unter welcher Pascalversion der Code 
erzeugt wurde. Hier steht für Apple-Pascal 1.1 der Wert 2. Der Vor¬ 
gänger, die Version 1.0 hat der Wert 1. 
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Das hier abgedruckte Programm liest für ein bestimmtes Code-File 
diese Informationen ein, und gibt sie auf dem Bildschirm aus. Es ist 
interessant, mit dem Programm etwas zu "spielen", und sich z.B. den 
"SYSTEM.EDITOR" anzuschauen. Manchmal erlebt man auch Überraschun¬ 
gen. Es kommt ab und zu vor, daß in dem Feld "SEGNAME" ein Copy¬ 
right-Vermerk untergebracht ist. 

Wie aus dem Handbuch ersichtlich, enthalten Units noch mehr Informa¬ 
tionen. Wir werden hier nicht weiter darauf eingehen, zumal es das 
Programm “LIBMAP" auf der Diskette "APPLE3: ** gibt. Damit hat man 
Zugriff auf diese weiteren Informationen. Hier noch ein Tip: man 
kann "LIBMAP" auch auf normale Codefiles anwenden, man ist nicht auf 
Units beschränkt. 


Pr og r amm " C ODEF X L.EC . TEXT " 
program codefile; 


type segment_directory 


record 

diskinfo: arrayCO..153 of 
record 

codeleng,codeaddr:integer; 
end; 

arrayCO..153 of 

packed arrayCO..73 of char; 
segkind : arrayCO..153 of 

(1inked,hostseg,segproc,unitseg, 
seprtseg,uniinked_intrins f 
1inked_intrins,dataseg); 
arrayCO..153 of integer; 
packed arrayCO..153 of 
packed record 
segnum : 0..255; 

0..15; 

0 . . 1 ; 

0..7; 


segname : 


textaddr* 
seginfo : 


intrins_segs: 

end; 


mtype 
unused : 
Version: 
end; 

set of 0..31; 


var info:segment_directory; 
codef:file; 
fname:string; 


procedure hole_name; 
begin 

write('Name des Codefiles >'); 
readln(fname); 
end; 

procedure lese_info; 
var dummy:integer; 
begin 

reset(codef,fname); 
dummys=blockread(codef,info,l); 
close(codef); 
end; 

procedure gebe_info_aus; 
var i,j:integer; 
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—►-+—♦—♦—+'>; 

!tadd r!num!mtyp!vers!'); 

-►-+- 4 -♦-♦ ' ) ; 


begin 

writeln(chrC12)); 

writelnC' ♦—♦-♦-+-+- 

writelnC'! #!codelIcodea! name ! kind 

writelnC ' ♦—+-♦-♦--*- 

for i:= 0 to 15 do 
with info do begin 
writeC' !' ,*i :2,' !' ); 

writeCdiskinfoCiD.codeleng:5, ’!',diskinfoCiD.codeaddr:S,'!'); 
for j:»0 to 7 do 

writeCsegnameCi,jD); 
writeC'•'); 
case segkindCiD of 
linked : 

hostseg 
segproc 
unitseg 
seprtseg 


linked '); 
host seg '); 
seg proc 
unit seg 
seprtseg 




data seg ') 


writeC' 

: writeC' 

: writeC' 
s writeC' 
s writeC' 

unlinked_intrins: writeC'unlnkd int'); 

linked_intrins: writeC' lnkd int '); 
dataseg : writeC' 

end; 

writeC'!'); 

write(textaddrCiD:S,'!'); 
with seginfoCiD do 
begin 

writeCsegnum:3,'!'); 
writeCmtype:A,'!'); 
writelnCversion:A,'! 
end; 

end; 

writelnC' ♦—+-+-♦— 

end; 






begin 

hole_name; 
lese_info; 
gebe_info^aus; 
end. 


2.9 Wenn READLN zt_x langsam ist. 

Wer unter Pascal einen Text aus einem File einiesen will, der öffnet 
das betreffende File und liest dann Strings mit der Prozedure 
"REJVDLN" ein. Dies funktioniert ohne Zweifel. Jedoch ist die “REIAD- 
LN"-Prozedur äußerst langsam. Zum Einlesen von 100 Strings, die 40 
Zeichen lang sind, benötigt das System knapp 50 Sekunden. Dies ist 
ziemlich lang und in diesem Kapitel wird beschrieben, wie man die 
Einlesezeit um über 90 Prozent verbessern kann. 

Daß unsere Lösung allerdings nur auf das Einlesen eines Textes mit 
bekannter Länge beschränkt ist, wird am Ende des Kapitels näher 
beschrieben. 

Da wir die Prozedur "READLN" natürlich nicht direkt ändern können, 
müssen wir sie von Grund auf neu schreiben. Wir gehen dabei jedoch 
einen anderen Weg, als die Standardprozedur. Diese benutzt nämlich 
den "GETf-Bef ehl. was auch für die Langsamkeit der Prozedur verant¬ 
wort 1 ich ist. 
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Zunächst muß uns der Aufbau eines Textfiles klar sein. Wie in Kapi¬ 
tel 2.8 beschrieben» beinhalten die ersten zwei Blöcke eines 
Textfiles Informationen für den Editor. Danach beginnt der eigentli¬ 
che Text. Dessen Aufbau ist im N Apple Pascal Operating System” Hand¬ 
buch auf der Seite 266 kurz dargestellt. 

Ein Textfile gliedert sich in eine bestimmte Anzahl von sogenannten 
”Seiten". Jede Seite ist 1024 Bytes groß und nimmt je zwei Blöcke in 
einem File ein. 

Jede Seite besteht aus einer bestimmten Anzahl von Zeilen. die je¬ 
weils mit einem M CR”-Zeichen (ASCII-Code 13) abgeschlossen werden. 
Nun wird hier noch ein Trick angewandt, mit dem Disketteplatz ge¬ 
spart werden soll. In den meisten Texten, vor allem in Pascal-Pro¬ 
grammtexten sind die Zeilen eingerückt, d.h. sie beginnen mit einer 
bestimmten Anzahl von Leerstellen. Würden die Zeilen nun in dieser 
Form abgespeichert, so bestünde ein Großteil des Files aus Leerstel¬ 
len. POS kürzt diese Leerstellen sozusagen ab. 

Ist das erste Zeichen in einer Zeile in einem Textfile ein "DLE”- 
Zeichen (ASCII-Code 16), so bedeutet dies, daß die Zeile eingerückt 
ist. Der nächste Wert im File gibt nun an, um wieviele Leerstellen. 
Erst danach beginnt der Inhalt der Zeile. Damit wird relativ viel 
Platz auf der Diskette eingespart. Eine Zeile, die um zehn Zeichen 
eingerückt ist, und insgesamt eine Länge' von 30 Zeichen hat, nimmt 
in einem Textfile nur noch 22 Bytes ein. 

Wenn eine Seite mit Zeilen gefüllt wird, dann benötigen sie alle 
zusammen in den wenigsten Fällen genau 1024 Bytes. Der Rest einer 
Seite, in dem keine Zeile mehr Platz gefunden hat, wird mit Nullen 
(CHR<0)) aufgefüllt. 

Nochmals eine kurze Zusammenfassung zum Aufbau eines Textfilos. 
Jedes Textfile besteht aus den Editorinformationen und einer Anzahl 
von Textseiten: 


! Editorinformationen 

! Textseitel ! ... 

•-+-+ 

! Toxtseit© n i 

Blöcke 0/1 

Blöcke 2/3 

Blocke 2n/2n+l 


Jede Textseite ist 1024 Bytes groß und gliedert sich in Zeilen. Die 
restlichen unbenutzen Bytes werden mit Nullen aufgefüllt. 


+ -- + 

I abcdefgCR ! abcdefgCR i ... >00000000 ! 

+- - - - + 

Zeile 1 Zeile 2 Nullen 


Jede Zeile wird mit einem "CR" Zeichen (CHR<13)> abgeschlossen.Han¬ 
delt es sich um eine Zeile, die eingerückt ist, so ist das erste 
Zeichen ein "DLE”. Danach folgt ein Wert, der angibt, wieviele Leer¬ 
stellen der Zeile vorangehen. Dieser Wert ist 32 + Anzahl der Leer¬ 
stellen. Dann folgen die eigentlichen Textzeichen. Es hat sich her- 
ausgestellt, daß auch bei den meisten Zeilen, die nicht eingerückt 
sind, ein ”DLE” vorangeht. 
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+-+-+ +- -f-+ 

! OLE ! Wert ! ! Textzeichen abcdefg... f CR I 

+-+-+ --+ - + 

Nur bei oin¬ 
gerückten 
Zeilen 


Nun zurück zu unserem Problem. Für unser “READLN“, wir nennen es 
“FREADLN“, benutzen wir die “BLOCKREAD“-Funktion. Wir lesen dabei 
jeweils eine Seite in eine Variable ein. Aus welchem Block in dom 
File die nächste Seite eingelesen werden muß halten wir in “BLOCK- 
POINTER" fest. Das Feld “SEITE“ enthält nun eine Textseite. 

Damit wir wissen, wo die nächste Zeile innerhalb der Seite beginnt, 
brauchen wir “BUFFERPOINTER“. Nach dem Einlesen einer Seite wir 
“BUFFERPOINTER" auf Null gesetzt. 

An “FREADLN“ wird ein String <“S“) als variables Parameter überge¬ 
ben. Wir schauen nun, ob das Zeichen, auf das “BUFFERPOINTER“ gerade 
zeigt ein DLE ist. Ist dies der Fall, so schauen wir noch den näch¬ 
sten Wert an, und spannen vor “S“ die entsprechende Anzahl von Leer¬ 
zeichen. 

An der Stelle, auf die “BUFFERPOINTER“ nun zeigt, beginnen die Text¬ 
zeichen der Zeile. Mit der “SCAN“-Funktion stellen wir fest, wo sich 
das abschließende “CR“-Zeichen der Zeile befindet. Wir wissen nun, 
wo die Textzeichen der Zeile beginnen, und wo sie enden. Wir müssen 
noch die einzelnen Zeichen in den String “S“ übertragen. 

Da es sich bei “SEITE“ um ein Feld und bei “S“ um einen String han¬ 
delt, ist eine Übertragung per “COPY“ nicht möglich. Eine Schleife, 
in der die Zeichen einzeln übertragen werden würden, wäre zu lang¬ 
sam. Wir bedienen uns hier der “MOVELEFT“-Prozedur, wobei wir die 
entsprechende Anzahl von Bytes aus “SEITE“ nach “S“ übertragen. 
Damit bei “S“ die Längenangabe korrekt wird, füllen wor ”S“ vorher 
mit Leerzeichen. 

Wir korrigieren nun noch den “BUFFERPOINTER“, und haben eine Zeile 
eingelesen. Da “BLOCKREAD“ nur mit unbestimmten Files arbeitet, muß 
das File, aus dem gelesen werden soll als “FILE“ und nicht als 
“TEXT“ deklariert werden. 

Zum Offnen des Files muß die Prozedure “FRESET“ benutzt werden. Sie 
liest die erste Textseite in “SEITE“ ein, und setzt “BLOCKPOINTER“ 
und "BUFFERPOINTER“ auf Ausgangswerte. 

In dem abgedruckten Text gibt es noch die Prozedur “FCLOSE“. Sie 
schließt das File. Im Grunde genommen ist sie nicht als einzelne 
Prozedur nötig. Man kann den Aufruf von “FCLOSE“ auch mit "CLOSE(F)“ 
ersetzen. 

Die mit dem Beispielprogramm erreichten Geschwindigkeitssteigerungen 
sind enorm. Mit der normalen “READLN“-Prozedur braucht das Programm 

49.2 Sekunden, um 100 Textzeilen einzulesen. Mit dem abgedruckten 
Programm waren nur 3,8 Sekunden nötig. Dies ist ein Steigerung um 

92.2 Prozent ! 

Diese Steigerung bringt einige Nachteile mit sich. Zunächt muß für 
jedes File eine eigene Prozedur geschrieben werden. Es ist in Apple- 
Pascal nicht möglich, ein File als Parameter an eigene Prozeduren zu 
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übergeben. Beim eingebauten "READLN" ist dies mit "READLN(F,S) M er¬ 
laubt . 


Der zweite Nachteil ist, daß vorher bekannt sein muß, wieviele Zei¬ 
len sich in dem Textfile befinden. "FREADLN" erkennt nicht, wann der 
Text zuende ist. Man kann natürlich feststellen, ob über das Fileen¬ 
de hinausgelesen werden soll. Ein Fehler tritt allerdings bei der 
letzten Seite auf. Handelt es sich um einen Text, der in einer frü¬ 
heren Version länger war, so befinden sich in der letzten Seite noch 
weitere Textzeichen. Diese werden bei "FREADLN“ noch raiteingelesen. 
Man kann dies gut mit dem File "SYSTEM.WRK.TEXT" ausprobieren. Die 
Information, * wieviel Bytes in der letzten Seite gültig sind, steht 
im Directory (siehe Kap. 2.2). Man müßte also zusätzlich das Direc¬ 
tory einiesen, um das Ende des Textes erkennen zu können. Im Kapitel 
5.2 wird "FREADLN“ auf diese Art verbessert. 

Wenn jedoch nur bestimmte Texte eingelesen werden sollen, ist 
"FREADLN" gut geeignet. Ein Anwendung wäre das Einlesen von Hilfs¬ 
texten für ein Programm. Hier werden die Wartezeiten wahrend des 
Diskettenzugriffs minimiert. 

Wichtige Variablen und Prozeduren 

"F" : File, das zum Einlesen eines Textfile 
benutzt wird 


"SEITE" : Bytefeld, das eine Seite des Textfiles 
aufnimmt 

"BUFFERPOINTER" : Zeigt auf das nächste Zeichen 

innerhalb von "SEITE", das gelesen wird 

"BLOCKPOINTER" : Enthält Nummer des Blocks innerhalb 

des Textfiles, bei dem die nächste 
Textseite beginnt 


"LEER" 


String der 120 Leerzeichen enthält. (Könnte 
auch als Konstante deklariert werden) 


"FRESET" 


Öffnet ein Textfile und liest die erste 
Textseite in "SEITE" ein 


"FREADLN" 


Liest einen String aus dem Textfile 


"FCLOSE" 


Schließt das Textfile 


Progr summ ” F“A.ST - TEXT " 
program fast; 
var 

< Variablen, die von "FRESET","FRAEDLN" und "FCLOSE" benutzt werden > 

f:file; 

seite:packed arrayCO..10233 of char; 
bufferpointer:integer; 
blockpointer:integer; 

leer:stringC1203; 

< Variablen, die von HauptProgramm benutzt werden > 

s:string; 

isinteger; 
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procedure freset(n:string); < Oeffnet das File mit dem Namen 'N' > 

var dummy:integer; 

begin 

resetCf,n); 

dummy:«blockreadCf,Seite,2,2); < 
bufferpointer:=0; < 

blockpointer:«4; < 

end; < 


Erste Seite einiesen > 

Zeichenzeiger auf das erste Zeichen setzen > 
Blockzeiger auf die naechste Seite im > 

File setzen > 


procedure freadlnCvar s:sträng); < Den String 'S' aus dem File lesen > 
var n,no,start2,dummy:integer; 


begin 

ss="; 

if CseiteCbufferpointer3=chr(0)> or 

Cbufferpointer«!024) then < Eventuell naechste Seite einiesen > 
begin 

dummy:«blockread Cf,seite,2,blockpointer); 
blockpointer:«blockpointer+2; 
buf f erpointert«0; 
end; 

if seiteCbufferpointer!]«chrC16) < OLE !> 
then begin 

bufferpointer:«bufferpointer+1; 

n :«ord CseiteCbuf ferpointer!)); < Anzahl der Blanks holen > 
bufferpointer:«bufferpointer+1; 
s:«copyCleer,l,n); < Blank an den String setzen > 
end; 

no:=scanC1024,=chrC13)-,seiteCbufferpointerD); < Nach CR suchen > 
if no>0 
then 
begin 

start2:=lengthCs); 

si«concatCs,copyCleer,1,no)); < String zunaechst mit Blanks fuellen > 

moveleftCseiteCbufferpointer],sCstart2+13,no); < Tatsaechliche Zeichen > 
bufferpointer:«bufferpointer+no+1; < in den String bringen, und > 

end < Zeichenzeiger korrigieren > 

eise bufferpointer:«bufferpointer+1; 

end; 


procedure fclose; < File schliessen > 
begin 

closeCf); 
end; 


begin 

leer:=C' 

1eer:«concatCleer,leer,leer); < 


writeCchrC7),'##'); < 

fresetC'test.text'); < 

for i:« 1 to 100 do . < 

begin 

freadlnCs); 
end; 

writeCchrC7),'##'); { 

fclose; < 

end. 


'>? 

"LEER” mit 120 Blanks fuellen > 


Startsignal zum Zeitmessen > 
Testfile oeffnen > 
100 Zeilen einiesen > 

Stopsignal zum Zeitmessen > 
Testfile schliessen > 


60 


http://www.robert-tolksdorf.de 



UTILITIES Betriebssystem 


2.1 O Mehr Platz aLtJif den D x s R. © t. t. ©rx 

Eine normale POS-Diskette hat 280 Blöcke, d.h. sie kann 140 KByte 
Daten aufnehmen. Sie ist in 35 Tracks eingeteilt. Dies ist der Fall 
bei Benutzung der normalen Apple- Laufwerke. DOS und POS sind hier 
zwar auf 35 Tracks eingestellt, dies ist aber noch nicht die maxi¬ 
male Anzahl von Tracks, die ein Laufwerk hardwaromäßig ermöglicht. 
So ist bei einem Apple-Laufwerk noch ein 36. Track vorhanden. Er 
wird aber nicht benutzt und nicht formatiert. Wäre er formatiert, so 
wäre seine Benutzung kein Problem, und man hätte 4Kbyte mehr Platz 
auf der Diskette. 

Was uns fehlt ist ein Programm, das eine Diskette auch auf 36 Tracks 
formatieren kann. Das bei Pascal mitgelieferte Programm "FORMATTER" 
benutzt normalerweise auch nur 35 Tracks. Es ist aber möglich, mit 
diesem Programm auch 36 oder mehr Tracks zu formatieren. 

Wir müssen dazu das File "FORMATTER.DATA" verändern. In diesem File 
steht eine Assemblerroutine zum Formatieren und ein Datenblock, in 
dem sich ein "leeres" Directory für eine neuformatierte Diskette 
befindet. Man kann hier an zwei Stellen eingreifen. 

In dem Maschinensprachtei1 ist eine Routine, die die Diskette Track 
für Track formatiert. Dabei wird bei Track 0 angefangen und bis 
Track 35 formatiert. Logischerweise ist 35 ein Abbruchwert für die 
Formatierung, der auch in der Routine vorkommt. Wenn wir an dieser 
Stelle einen anderen Wert einsetzen, so gilt dieser als die maximale 
Anzahl der Tracks. Setzen wir eine 36 ein, so wird auch der bis 
jetzt ungenutzte 36. Track formatiert. Dieser Abbruchwert befindet 
sich im 156. Byte des Files. 

Wollen wir ihn mit einem Programm ändern, so lesen wir einfach den 
ersten Block des Files mit "BLOCKREAD" ein, verändern das 156. Byte 
und schreiben den Block mit "BLOCKWRITE" wieder zurück. 

Damit könnten wir aber noch nicht die zusätzlichen 8 Blöcke, die 
durch den neuen Track entstehen nutzen. Dazu muß noch die Directory¬ 
angabe, in der steht, wieviele Blöcke die Diskette hat, geändert 
werden. Man konnte nach der Formatierung in den Filer gehen und das 
Z)ero-Kommando benutzen. Man wird dann gefragt, ob sich 280 Blöcke 
auf der Diskette befinden. Antwortet man mit "N", so kann man einen 
Wert eingeben. Um den 36. Track mitzubenutzen müßte man "288" einge¬ 
ben. Dies ist jedoch umständlich, da sich in “FORMATTER.DATA", wie 
beschrieben, ein "leeres" Directory befindet. Wir müssen nur noch 
wissen, wo die Angabe über die Anzahl der Blöcke steht, und können 
hier den entsprechenden Wert einsetzen. Die Anzahl der Blöcke wird 
in einem 16-Bit- Wert festgehalten, der bei Byte SAOE im File befin¬ 
det. Diese Bytes stehen im 5. Block des Files. Bei der Änderung 
dieses Wertes gehen wir wie oben vor. 

Das hier abgedruckte Programm übernimmt diese Aufgaben automatisch. 
Es stellt fest, wieviele Tracks in "FORMATTER.DATA" angegeben sind, 
und fragt den Benutzer dann nach einer neuen Trackanzahl. Daraufhin 
wird "FORMATTER.DATA" wie oben beschrieben, verändert. 

Man kann nun mit den normalen Formatierprogramm auch Fremdlaufwerke 
benuzten, die meistens 40 bzw. 41 Tracks haben. Und man kann sich 
auf den normalen Appleiaufwerken 8 Blöcke mehr Platz schaffen, indem 
man den 36. Track ausnutzt. 
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Progr amm *' FORMPTCH - TEXT " 

program formatpatch; 

var fifile; 

block:packed arrayCO..5113 of 0..255; 
tracks t neutracks:integer; 

procedure werte.lesen; < Den Wert fuer die Trackanzahl aus > 
var dummy:integer; < FORMATTER.DATA holen, mit dem > 

begin < FORMATTER gerade arbeitet. > 

resetCf,'#4xfortnatter.data'); 

dummy:»blockread(f,block,1,0); 
tracks:=blockCl563; < Byte *9B (hex) > 

close(f); 
end; 

procedure werte_schreiben; < Die neuen Werte fuer die Anzahl > 
var dusuny:integer; { der Tracks und der Bioecken in > 

begin < FORMATTER.DATA schreiben. > 

reaet(f,'#4:formatter.data'); 

dummy:»blockread(f,block,1,0); 
blockC156Di«neutracks; < Byte *9B (hex) > 
dummy*»blockwrite(f,block,1,0); 

dummy: & blockread(f,block,1,5); 

blockClA3:=(neutracks»8) mod 256; i Byte $AQE (hex) > 
blockC153ro(neutracks*8) div 256; f Byte *A0F (hex) > 
dummyt»blcckwrite(f,block,1,5); 

close(f); 
enä; 


begin 

writeln('-'); 

writeln(' Patchen von FORMATTER.DATA'); 

writeln('-'); 

writeln; 
werte.lesen; 


writeln('Momentan formatiert FORMATTER mit'); 

writeln(tracks,' Tracks, d.h. mit ',tracks*8,' Bioecken'); 

writeln; 

write('Neue Trackanzahl :'); 

readln(neutracks); 

we rte.sch reiben; 

writeln; 

writeln; 

writeln('FORMATTER formatiert nun mit'); 

writeln(neutracks,' Tracks,,d.h. mit ',neutracks#8,' Bioecken'); 
end. 
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3.0 Utilities für Apple-Pascal 

Nachdem wir einige Utilities für das Pascal Betriebssystem entwic¬ 
kelt haben, wenden wir uns nun der Sprache Pascal selber zu. Unser 
Ziel ist es, einige neue Befehle einzuführen. Daß dabei nicht der 
Compiler selbst verändert werden kann, sondern nur mit Tricks und 
neuen Prozeduren gearbeitet werden kann, liegt in der Natur eines 
Compilers. 

Weiterhin werden wir den P-Code Interpreter genauer untersuchen. Da¬ 
bei soll allerdings nicht auf seine Arbeitsweise eingeg&ngen werden, 
da diese schon in den Pascal-Handbüchern behandelt wird. Hingegen 
wird eine Liste vorgestellt, die angibt, in welchen Speicherberei¬ 
chen welche internen Routinen stehen. 

Der Leser sollte bedenken, daß die folgenden Tricks nicht der Pas¬ 
cal-Philosophie folgen. Programme, die sie benutzen sind nicht mehr 
transportabel und können nicht ohne weiteres auf andere Computer und 
Compiler übertragen werden. Wer Jedoch Programme schreibt, die nur 
unter Apple-Pascal 1.1 laufen sollen, der also nicht auf Transporta¬ 
bilität achten muß, der sollte diese Tricks ruhig anwenden. Sie er¬ 
weitern die Grenzen von Pascal, an die man leider sehr oft stoßen 
kann. Sie gleichen die Lücken aus, die in Apple-Pascal bestehen. 


3 . i •• f»e:e:k: •* umd •• poke •• 
eiucli in Pas ca 1 

Von BASIC sind die. zwei Befehle "PEEK" und "POKE" bekannt. "PEEK M 
ergibt den Inhalt einer angegebenen Speicherstellen und "POKE“ ver¬ 
ändert ihn. Im BASIC des Apple II, APPLESOFT, werden die Befehle 
meistens im Zusammenhang mit der Bildschirmausgabe, der Tastatur und 
den Paddies verwendet. 

Im UCSD Pascal sind diese beiden Befehle nicht vorgesehen. Es ist 
nicht möglich, z.B. festzustellen, ob ein Knopf an den Paddies ge¬ 
drückt ist, ohne die "APPLESTUFF“-Unit zu benutzen. (In BASIC wäre 
die einfach über "PEEKC-16287)" möglich.) 

Ein Möglichkeit, eine "PEEK“ oder "POKE“ Routine zu definieren wäre, 
ein Maschinensprachen-Prograrom zu schreiben, an das eine Adresse und 
eventuell einen Wert übergeben wird. Dazu wären ein Lauf des Assem¬ 
blers und ein Lauf des Linkers für Jedes Programm nötig. 

Es geht aber auch in Pascal. Daß dies günstiger ist, ist offenbar: 
Es fallen der Assembler- und der Linkerlauf weg. Die Pascal Lösung 
beruht auf der Verwendung von Pointers und Recordvarianten. 

Bei Recordvarianten werden in der Variablendefinition verschiedene 
Stukturen angegeben, die der Record in Abhängigkeit eines Record¬ 
felds annehmen kann. Dieses Feld wird in der Fachsprache "TAGFIELD" 
genannt. Das sieht z.B. so aus: 

VAR BEISPIEL: RECORD CASE SCHALTEN:INTEGER OF 
0: <CH:CHAR>; 

1: (KETTE:STRING); 

2: (WERT:INTEGER) 

END; 

Das tatsächliche Aussehen des Records hängt nun vom Wert “BEISPIEL. 
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Das tatsächliche Aussehen des Records hängt nun vom Wert "BEISPIEL. 
SCHALTER" ab. Wenn er 1 annimmt, dann ist das zweite Feld des 
Records der String "KETTE". Wenn "BEISPIEL.SCHALTER" den Wert 2 an¬ 
nimmt, dann ist es das Integer "WERT". Der Compiler reserviert für 
dieses zweite Feld soviele Bytes, wie die größte Variante benötigt, 
für "BEISPIEL" also 81 Bytes für "KETTE". Nimmt "BEISPIEL.SCHALTER" 
2 an, so bleiben 79 Bytes unbenutzt. 

Der zweite Trick bei "PEEK" und "POKE" ist die Verwendung von Poin¬ 
ters. Ein Pointer zeigt auf eine Speicheradresse. Es wird angenom¬ 
men, daß die dem Pointer zugeordnete Variable dort im Speicher 
steht. Normalerweise werden diese Pointer nur von einer Variablen 
auf die andere übergeben, d.h. der eigentliche Wert interessiert 
nicht und hat nur interne Bedeutung. Es ist aber auch möglich, einem 
Pointer einen Wert zuzuweisen. 

Es ist nun nötig, beide Tricks zu kombinieren. Es ergeben sich fol¬ 
gende Typendefinitionen; 


Progr SLirim PEEK —D . TEXT •• 


type 

byte = 0..255; 

spchrinhalt » packed arrayCO.,0) of byte; 
spchrstelle ® record case boolean of 

true: (adresse:integer); ( Zeiger ) 
false;(inhalt:^spchrinhalt) ( Inhalt ) 
end; 


"BYTE" ist der Wertebereich, den ein Speicherinhalt annehmen kann. 
Würden wir "BYTE" für den Inhalt einer Speicherzelle nehmen, so er¬ 
hielten wir falsche Ergebnisse. Denn im UCSD-Pascal beginnen unge- 
packte Variablen immer an Anfang eines 16-Bit Wortes. Es wäre also 
nicht möglich, z.B. den Speicherinhalt von 1 zu lesen, da das erste 
16-Bit Wort bei 0 beginnt. Wir würden den Inhalt von 0 erhalten. 

Dieses Problem besteht nicht bei gepackten Feldern. Sie können über¬ 
all beginnen. Wir definieren einfach ein gepacktes Feld mit nur ei¬ 
nem Element. Mit diesem TYPE "SPCHRINHALT" können wir arbeiten. 


Progr a.mm " PEEK —JP . TEXT " 

procedure pokeCadresse:integer; inhalt:byte); 

var dummy;spchrstelle; 

begin 

dummy.adresse;»adresse; 
dummy.inhalt~ C 0 ] :®inhalt; 
end; 

function peek<adresse;integer); byte; 

var dummy:spchrstelle; 

begin 

dummy.adresse:»adresse; 
peek:»dummy.inhalt~C01; 
end; 
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BE31 
BE32 
BE33 
BE34 
BE35 
BE36 
BES 7 
BE38 
BE39 
BE3A 

BE3B BE3D 
BE3E BEFD 


BEFE 

BEFF 

BF00 

BFFF 

BF00 

BF09 

BF0A 

BF0D 

BF0E 
BF0F 
BF10 
BF11 


BF12 

BF13 

BF15 

BF14 

BF16 

BF17 

BF18 

BF19 

BF1A 

BF1B 

BF1C 


BF1D 

BF1E 

BF1F 

BF21 

BF22 

BF20 


BF23 BF24 
BF25 BF26 
BF27 BF2E 


Key for flush 

Key for break 

Key for stop 

Key to delete character 

Non printing character 

Key to delete line 

Editor escape key 

Lead in from keyboard 

Editor accept key 

Backspace 

wahrscheinlich unbenutzt 
Segment Table (ARRAY (0..31) OF 
RECORD 

UNITNUM :INTEGER 
BLOCKNUM;INTEGER 
CODELENG:INTEGER 
END;) 

wahrscheinlich unbenutzt 
Interpreter und BlOS-Variablen 


wahrscheinlich unbenutzt 
CONCKVECTOR: Vektor auf die Keyboard- 
Routine 

SCRMODE: Wenn bit 2 8 1 -> externa1 console 

LFFLAG; Wenn bit 7 8 0 -> LF'S an Printer 

wahrscheinlich unbenutzt 

NLEFT: Für Kontrolle des horizontalen 

Screen-Scrolls benötigt 

Zähler für Esc-Folgen 

RANDL/RANDH: Aufgangszahl für Random 

CONFLGS: Flag für Breakbehandlung 

(Bit 7: autofollow, Bit 6: flush, Bit 7: stop) 

BREAK: Vektor auf Benutzer Break-Routine 
RPTR: Console-Puffer Lesepointer 
WPTR: Console-Puffer Schreibepointer 
RETL/RETH: Return Adresse des Interpreters 
bei BIOS-Aufrufen 
SPCHAR: Setzt Character Tests 
(Bit 0 8 1 -> nicht auf Ctrl A,Z,K,W,E testen 
Bit 1 ö i -> nicht auf Ctrl S,F testen) 

IBREAK: Vektor auf Benutzer Break-Routine 
ISYSCOM: Pointer auf SYSCOM 
VERSION: 00 8 Apple 1.0 / 02 » Apple 1.1 
FLAVOR: 01 s Normales System 

02 - keine Language-Card (LC) 

03 8 keine LC, keine Sets 
04 8 keine LC, keine Fließkommaroutinen 
05 8 keine LC, keine Sets und keine 
Fließkommaroutinen 
06 8 LC vorhanden 
07 8 LC, keine Sets 
08 8 LC, keine Fließkommaroutinen 
09 8 LC, keine Sets und keine 
Fließkommaroutinen 
Pointer auf BF56 
wahrscheinlich unbenutzt 

SLTTYPES: Table des Slottypen (Art der Karten) 

00 8 Karte konnte nicht identifiziert werden 
(Slot vielleicht leer) 

01 = Karte konnte identifiziert werden, Code 
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BF2F 

BF30 

BF31 

BF55 

BFS 6 

BF7F 

BFC0 

BFFF 


cooo 

CFFF 

D000 

DFFF 


D001 

DOOF 

D010 

D027 

D026 


D02C 


D683 


D69E 


D772 


D896 


D8C6 


D8EF 


D907 


D918 


D91C 


D923 


D930 


D950 


D97B 


D98A 


D99C 


D9A4 


D9B2 


D9C3 


D9E5 


D9F8 


DA07 


DA15 


DCA0 


DCB0 


DCC5 


DCE4 


DDF5 

DE28 

DE29 

DFF9 

D000 

F22D 

D000 

D0FF 

DljOQ 

D151 

D152 

D154 

D155 

D168 

D171 

D16F 

D190 

D1AC 

D1EF 


D1EF 



aber unbekannt 
02 = Disk-Controller 
03 = Kommunikations-Karte 
04 ° Serielle Karte 
05 « Printer Karte 
06 = Firmware Karte 
XITLOC: Vektor auf XIT Befehl 
wahrscheinlich unbenutzt 
von FORTRAN benutzt 

Boot-Devices, die nicht von Apple sind, können 
auf diese Speicherstellen zugreifen Cz.B. Harddisk) 

I/O Speicherstellen 


BlOS-Code (in Bank 2) 


Unterprogramm von DREAD 
Unterprogramm von RESINIT 
DWRITE: Disk Schreib-Routine 
DREAD: Disk Lese-Routine 
DINIT: Disk Init-Routine 

RESINIT: Init-Routine nach einem Hardware-Reset 

CONCK: Console Test-Routine 

CINIT: Console Init-Routine 

CREAD: Console Lese-Routine 

PINIT: Printer Init-Routine 

Firmwarekarte Init-Routine 

Graphik Init-Routine 

RINIT: Remote Init-Routine 

Kommunikationskarte Init-Routine 

Serial-Karte Init-Routine 

CWRITE: Console Schreib-Routine 

Firmware-Karte Schreib-Routine 

Serial-Karte Schreib-Routine 

RWRITE: Remote Schreib-Routine 

Printer-Karte Schreib-Routine 

Kommunikations-Karte Sehreib-Routine 

PWRITE: Printer Schreib-Routine 

Remote Lese-Routine 

Kommunikations-Karte Lese-Routine 

Firmware-Karte Lese-Routine 

Serial-Karte Lese-Routine 

Remote Status und Printer Status Routinen 
Console Status Routine 
Disk Status Routine 
IDSEARCH Routine 

Index Table der ersten Buchstaben für IDSEARCH 
Identifier Table für IDSEARCH 

Interpreter Code (in Bank 2) 


Interpreter Jump Table 

Jump Table für Standardprozeduren 

Jump nach F275 

M CHRGET M -Routine für P-Code 

Unterprogramm von LOD und LDA 

Unterprogramm von MARK und RELEASE 

EFJ: Equal false jump 

NFJ: Not equal false jump 
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D1EF 
D1FB 
D22E 
D24D 
D253 
D25F 
D267 
D296 
D29D 
D2A9 
D2BG 
D2D4 
D2FA 
D316 
D325 
D343 
D369 
D387 
D3AD 
D3DB 
D401 
D426 
D44B 
D467 
D46A 
D47B 
D495 
D4C8 
D4F6 
D523 
D53D 
D557 
D56B 
D57E 
D591 
D59E 
D62F 
D66B 
D882 
D8A0 
D6BB 
D6D9 
D8F1 
D703 
D742 
D789 
D839 
D866 
D87E 
D6CD 
D8E5 
D907 
D948 
D96B 
D987 
D99A 
D9D9 
DA1C 
DA72 
DB20 
DBS 7 


MATH: CSP 25. .31 

D228 Sichern der Pointer bei EXEC ERROR 

D252 IPC erhöhen 

HOP: No Operation 

Interpreter Hauptschleife 

FJP: Fa1s e jump 

UJP: Unconditional jump 

LDCN: Load constant NIL 

LDCI: Load one word constant 

SLDL1..SLDL16: Short load local word 

r.nr.: I.ond locnl word 

LLA: Load local adress 

STL: Store local word 

SLD01..SLD016: Short load global word 

LDO: Load global word 

LAO: Load global adress 

SRO: Store global word 

LOD: Load intermediate word 

LDA: Load intermediate adress 

STR: Store intermediate word 

LDE: Load extended word 

STE: störe extended word 

LAE: Load extended adress 

SIND1..SIND7: Short index and load word 

SINDO: Load indirect word 

STO: Store indirect word 

LDC: Load multiply word constant 

LDM: Load mulitply words 

STM: Store multiply words 

LDB: Load byte 

STB: Store byte 

MOV: Move words 

LAND: Logical and 

LOR: Logical or 

LNOT: Logical not 

XJP: case jump 

NEW (CSP 1) 

MARK (CSP 32) 

RELEASE (CSP 33) 

XIT: Exit the Operation System 

ABI: Absolute value of integer 

ADI: Add integers 

NGl: Negate integers 

SBI: Substract integers 

MPI: Multiply integers 

SQI: Square integers 

DVI: Divide integers 

MODI: Modulo integers 

CHK: Check against subrange bounds 

LPA: Load a packed array 

LSA: Load a constant string adress 

SAS: String assign 

IXS: Index string array 

IND: Static index and load word 

INC: Increment field pointer 

IXA: Index array 

IXP: Index packed array 

LDP: Load a packed field 

STP: Store into a packed field 

INT: Set intersection 

DIF: Set difference 
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DB79 

DBE5 

DC55 

DCBA 

DCCC 

DD92 

DDD4 

DDD8 

DDDC 

DDEO 

DDE4 

DDE8 

DF2B 

DF2F 

DF33 

DF37 

DF3B 

DF6S 

E253 

E2A1 

E2BD 

E2D4 

E2F9 

E32A 

E33F 

E417 

E61C 

E626 

E630 

E63A 

E640 

E6B2 

E6F7 

E784 

E82B 

E833 

E641 

E8A0 

E8A0 

E904 

EAC2 

EB09 

EB5A 

ECSS 

EC7D 

ECB 2 

ECCO 

ED3F 

ED 6 2 

EDBB 

EDDO 

EDE5 

EEOE 

EEA B 

EEAD 

EEBD 

EECD 

EEF9 

EF04 

EFOF 
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UNI: Set union 
ADJ: Adjust Set 
INN: Set membership 
SGS: Built a singleton set 
SRS: Built a subrange set 
DDD3 Table mit Masken für Manipulation von 
gepackten Feldern 
NEQ: Not equal 
GRT: Greater than 
LES: Less than 
GEQ: Greater than or equal 
LEQ: Lass than or equal 
EQU: Equal 

LESI: Integer less than 

GRTI: Integer greater than 

LEQI: Integer less than or equal 

GEQI: Integer greater than or equal 

NEQI: Integer not equal 

EQUI: Integer equal 

CIP: Call intermediate procedura 

CLP: Call local procedura 

CGP: Call global procedura 

CXP: Call external procedure 

CBP: Call base procedure 

RBP: Return from base procedure 

RNP: Return from non-base procedure 

Segement Lese-Routine 

Residentes Segment laden (CSP 21) 

Residentes Segment 'ausladen' (CSP 22) 

CSP: Call Standard procedure 

IDSEARCH (CSP 7) 

TREESEARCH (CSP 7) 

FILLSCHAR (CSP 10) 

SCAN (CSP 11) 

EXIT (CSP 4) 

BPT: breakpoint 
HALT (CSP 39) 

TIME (CSP 9) 

MOVELEFT (CSP 2) 

MOVERIGHT (CSP 3) 

MEMAVAIL (CSP 40) 

ADR: Add reale 

SBR: Substract reals 

DVR: Divide reals 

MPR: Multiply reals 

SQR: Square reals 

ABR: Absolute value of real 

NGR: negate real 

FLO: Float next to top-of-stack 
FLT: Floadt top-of stack 
ROUND (CSP 24) 

TRUNC (CSP 23) 

PWROFTEN (CSP 36) 

EEAA Table der Zehnerpotenzen 

EEAC wahrscheinlich unbenutzt 

EEBD Character device write table 

EECC Character device read table 

Test auf erlaubte Unit 
IORESULT (CSP 34) 

IOCHECK (CSP 0) 

UNITBUSY (CSP 35) 
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EF1D 

EF27 

EFA5 

F069 

F06E 

F22E 

FE7C 

FE80 

FEC8 

FEE9 

FEEF 

FEF5 

FEFB 

FFOO 


FF42 

FF4F 

FF58 

FF5C 

FF5C 
FF5F 
FF62 
FF65 
FF68 
FF6B 
FF6E 
FF71 
FF74 
FF77 
FF7A 
FF7D 

FF80 

FF83 

FF86 

FF89 

FF8C 

FF8F 

FF92 

FF9S 

FF98 

FF9B 

FFEE 

FFF6 

FFF8 

FFF8 

FFFA 


UNITWAIT (CSP 37) 

UHITSTATUS (CSP 12) 

UNITCLEAR (CSP 38) 

UNITREAD (CSP 5) 

UNITWRITE (CSP 6) 

FE7B Code von SYSTEM.PASCAL, Segment #0, 

Prozeduren <11-28 

FE7F wahrscheinlich unbenutzt 

FEAF Jump Vektoren auf user device 

FEE8 'Lädt' einen Driver per User-Device- 

_ Jump-Vektor 

FEEE Start-Routine 

FEF4 Interrupt, reste und BRK-Routine, springt 

nach XIT 

FEFA Von D756(2) aufgerufen 

FEFF Von Hires-Routinen benutzt 

FF41 BIOS Jump Table vor Fold 


FF4E Schiebt vektor auf Diskettennummer (FEBO) 
auf Stack 

FF56 'Lädt' Driver per Disknummer Vektor 
RTS Befehl 

FF9D BIOS Jump Table nach Fold 


FF5E Vektor auf Console Lese-Routine 

FF61 Vektor auf Console Schreib-Routine 

FF64 Vektor auf Console Init-Routine 

FF67 Vektor auf Printer Schreib-Routine 

FF6A Vektor auf Printer Init-Routine 

FF6D Vektor auf Disk Schreib-Routine 

FF70 Vektor auf Disk Lese-Routine 

FF73 Vektor auf Disk Init-Routine 

FF76 Vektor auf Remote Lese-Routine 

FF79 Vektor auf Remote Schreib-Routine 

FF7C Vektor auf Remote Init-Routine 

FF7F Vektor auf Graphik Schreib-Routine (ruft nur 
ein RTS Befehl auf) 

FF82 Vektor auf Graphik Init-Routine 

FF85 Vektor auf Printer Lese-Routine 

FF88 Vektor auf Console Status-Routine 

FF8B Vektor auf Printer Status-Routine 

FF8E Vektor auf Disk Status-Routine 

FF91 Vektor auf Remote Status-Routine 

FF94 Vektor auf Keyboard Test-Routine 

FF97 Vektor auf Routine, die einen Driver per 
User-Device-Jump Vektor 'lädt' 

FF9A Vektor auf Routine, die einen driver per 

Disknuromer' Vektor 'lädt' 

FF9D Vektor auf IDSEARCH 

FFF5 wahrscheinlich unbenutzt 

FFF7 Version ( 0 = Apple 1.1, 1 = Apple 1.0) 

FFFF Vektoren 


FFF9 Start Vektor 

FFFB Vektor für Non-Maskable-Interrupt (NMI) 
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FFFC FFFD Raset Vektor 

FFFE FFFF Interrupt request und BRK Vektor 


3-3 Was steht wo — eine Anwendung 

.In diesem Kapitel soll an einem Beispiel erläutert werden, wie man 
die Informationen, die in der Liste aus Kapitel 3.2 stehen nützen 
kann. (Wenn im Text auf eine Speicherstelle verwiesen wird, so soll¬ 
te der Leser diese in der Liste nachschlagen und die Erläuterung 
lesen.) 

Eine Möglichkeit ist, durch gezielte Eingriffe in die systeminternen 
Routinen das Pascal-System seinen Bedürfnissen anzupassen. So gibt 
es z.B. die Möglichkeit, die Tastatur des Apple so umzuriisten, daß 
sie Kleinbuchstaben erzeugen kann. Durch das Einstecken eines neuen 
Zeichengenerators auf der Hauptplatine können sie dann auch auf dem 
Bildschirm dargestellt werden. Hierzu ist allerdings ein Eingriff in 
die Ein- und Ausgaberoutinen des Betriebssytems nötig, da sie auf 
eine serienmäßige Tastatur eingestellt sind. 

Wir wollen in diesem Kapitel Jedoch einige systeminterne Variablen 
einiesen und diese anzeigen. Im Speicherbereich von SA968 bis SBDDD 
stehen einige solcher Variablen. So z.B. die Filenamen von Assem¬ 
bler, Filers etc., sowie des Workfiles. Auch steht in diesem Be¬ 
reich, welche Diskette das "Prefix" bedeutet, und von welcher Dis¬ 
kette gebootet wurde. Wir werden den Hamen des Workfiles feststellen 
können, und auch was als "Prefixvolume" und was als "Root- 
volume" ("#"> gilt. 

Weitere interessante Variablen stehen im Bereich von SBFOO bis 
SBFFF. So z.B., welche Karten in welchen Slots stecken. Wir werden 
diese Liste ansprechen und diese Informationen anzeigen. 

Man kann diese Variablen natürlich nicht nur anzeigen, sondern auch 
verändern. So kann man von einem Programm aus z.B. die Filer-Funk- 
tion "P", die das "Prefixvolume“ ändert, ersetzen. So könnte man 
auch das Programm "PASH" aus Kapitel 2.3 erweitern. Das Setzen des 
Datums wird im nächsten Kapitel behandelt. 

Nun handelt es sich bei diesen Variablen aber nicht nur um einzelne 
Bytes, sondern z.B. beim Filenamen des Workfiles um einen String mit 
der Länge 15. Um die Variablen direkt ansprechen zu können müssen 
wir also den "PEEK/POKE" Mechanismus aus Kapitel 3.1 erweitern. Wenn 
wir zurückblättern stellen wir fest, daß wir dort einen Record be¬ 
nutzt haben, der es ermöglichte, eine Variable mittels eines Zeigers 
über eine bestimmte. Speicherstelle zu legen. Bei "PEEK/POKE" war 
diese Variable genau ein Byte groß. Es ist aber genauso gut möglich, 
das das Record-Feld "SPCHRINHALT" 15 Bytes groß ist. Man kann an 
dieser Stelle der Record-Definition Jeden gültigen Typ angeben. Um 
den Filename des Workfiles anzusprechen müßte es also lauten 
"SPRCHINHALT: STRING(15)". 

Boi den internen Variablen handelt es sich oft um Strings. Zeiger 
sind Integer-Werte. Flags bestehen aus einem Boolean-Wert. Es kommen 
aber auch Felder und Records vor. Das Datum z.B. ist ein gepackter 
Record (Siehe nächstes Kapitel). 

Wir können also durch geeignete Variablendefinitionen Jede interne 
Variable von einem Programm aus ansprechen. Im folgenden Programm 
werden wir das tun. 
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Zunächst wollen wir die Volume- und Filenamen des Workfiles anzei- 
gen. In den Speicherstellen $A9B2 und SA9B4 befinden sich Flags, ob 
überhaupt ein Arbeitstext und -code vorhanden sind. Falls diese 
Flags den Wert H TRUE" haben stehen die Volumenamen ab $A9CE und die 
Filenamen ab SA9B6. Zur Erinnerung: Das Workfile muß nicht unbedingt 
den Namen "SYSTEM.WRK.TEXT", bzw. -".CODE" haben. 

Die Volumenamen, für die das und das "*"-Zeichen stehen, finden 

sich ab SAA08 als Strings mit der Länge 7. Wir brauchen sie nur 
anzuzeigen. 

Schließlich steht ab JBF27 ein Feld, daß angibt, welche Karte in 
welchem Slot steckt. Für jeden Slot gibt es eine Byte, das den Kar¬ 
tentyp angibt. Die Bedeutung der Codes ist in der Liste angeben. Wir 
geben sie mit einer Schleife und einer "CASE"-Anweisung aus. 

Man sieht, daß es sehr einfach ist, diese Variablen anzusprechen. 
Dadurch ergeben sich vielfältige Möglichkeiten. Man kann Operationen, 
die bis jetzt nur mittels Dienstprogrammen wie dem Filer möglich 
waren, von seinem Programm aus durchführen. Die Programme werden 
dadurch viel benutzerfreundlicher. Man braucht sich nur noch in ei¬ 
nem Programm auskennen, nicht mehr zusätzlich, z.B. im Filer. Es ist 
natürlich zu beachten, daß die Programme dann nicht mehr auch andere 
Pascal-Systeme übertragbar sind. Man sollte hier die Strukturierungs¬ 
möglichkeiten von Pascal nutzen, und die Operationen, die systeraspe- 
zifisch sind in einem Programmblock zusammenfassen. Soll das Pro¬ 
gramm übertragen werden, so muß nur dieser Teil entsprechend geän¬ 
dert oder ersetzt werden. Am leichtesten sollte eine Übertragung auf 
ein anderes UCSD-Pascal System sein, da auch hier die gleichen 
Variablen vorhanden sind. Sie werden aber mit Sicherheit an anderen 
Stellen stehen. 


Progr amm •• WSW . TEXT •• 

program wsw; 

type 

byte = packed array CO..03 of 0..255; 
volume_id = stringC73; 
file_id = stringC153; 

table = packed array CO..73 of 0..255; 
var 

flag: record case boolean of 

true : (adresse:integer) ; 
false: (inhalt .♦''boolean); 
end; 

volume: record case boolean of 

true : (adresse:integer); 
false: (name:~volume_id); 
end; 

filename: record case boolean of 

true : (adresse:integer>; 
false: (name: “T ile_id>; 
end; 

slttyps : record case boolean of 

true : (adresse:integer); 

false: (typ :~table); 
end; 

ent:integer; 
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begin 

writeln<chr<12)); 
write<'Workfile (text) : '); 

flag.adresse:«-22092; C SA9B4 ) 

if flag.inhalt~ = true 
then begin 

volume.adresse:=-22062; C SA9BE ) 
writeC'''',volume,narae~); 
write<':'); 

filename.adresse:=-22050; C SA9DE ) 
writeln(filename.narae Ä ,''''); 
end 

eise writeln('none'); 
writeC'Workfile (code) : '); 

flag.adresse:=-22094; C SA9B2 ) 

if flag.inhalt~ = true 
thon begin 

volume.adresse:=-22090; C $A9B6 ) 

write<'''',volume.nam 0 A 
filename.adresse:=-22066; ( SA9CE ) 
writeln(filename,name A ,''''); 
end 

eise writelnC'none'); 
writeln; 

write<'Prefix is '''); 
volume.adresse:=-22008; ( SAA08 > 

write<volume,name A ); 
writeln( " " > ; 

write<'Root is "'); 

volume.adresse:=-22000; C $AA10 ) 

write(volume.nani 0 A ) ; 

writeln(''''); 

writeln; 

slttyps.adresse:=-16601; ( $BF27 ) 

for ent := 0 to 7 do 
begin 

write('Slot «',cnt,' contains '); 
case slttyps.typ^CcntJ of 

00 : writeln('probably nothing'); 

01 : writelnf'an unknown card'); 

02 : writeln('a disk Controller'); 

03 : writeln<'a Communications card'); 
04 : writeln('a serial card'); 

05 : writeln('a printer card'); 

06 : writeln('a firmware card') 
end; 
end; 

end. 
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3-4 Das Datum 

Eine sehr sinnvolle Anwendung der Liste aus Kapitel 3.2 ist eine 
Prozedur, die das Datum ändern kann. Wenn sie in ein Programm einge¬ 
baut wird, kann man es sich sparen, vorher im Filer das Datum zu 
setzen. Oder man schreibt sie in ein Programm, das als " SYSTEM. STAR- 
TUP" auf der Diskette steht. Damit wird schon nach dem Booten das 
Datum aktualisiert. Vielleicht benutzt man ein Programm täglich. Es 
kann dann selbstständig das Datum setzen. 

Wie wir schon in Kapitel 2.2 gesehen haben, wird das Datum als ein 
gepackter Record aufgefaßt. Das Format ist im Speicher dasselbe wie 
im Directory. Aus Kapitel 3.2 wissen wir, wo es im Speicher steht. 
Mittels eines der schon hinlänglich bekannten Zeiger legen wird die¬ 
sen gepackten Record über diese Speicherstelle und können so das 
Datum ansprechen. 

Wie bekannt, wird das Datum auch auf Diskette geschrieben, um es 
beim nächsten Einschalten des Computers wieder zur Verfügung zu ha¬ 
ben. Wenn wir das Datum setzen wollen, müssen wir es also auch auf 
Diskette schreiben. Nun wissen wir aber noch nicht, wohin. Wir 
schauen uns also den Aufbau des Directorys aus Kapitel 2.2 an. Wenn 
wir berechnen, wieviel Platz die Informationen vor und nach dem Da¬ 
tumseintrag benötigen, stellen wir fest, daß das 11. Wort im Block 2 
einer jeden Diskette das Datum darstellt. Wenn wir es schreiben wol¬ 
len, müssen wir aber zunächst diesen Block einiesen, und dann das 
Datum. Dies ist nötig, da ja sonst die Informationen vor und nach 
dem Datum verloren wären. 

Nun zu unserem Programm. Es sollte genau die Funktion erfüllen, die 
das "D"-Kommando im Filer hat. Im Filer kann man den Tag alleine 
setzen, indem man das Zeichen "D” vor die betreffende Zahl stellt. 
Was jedoch nicht möglich ist, nämlich das alleinige Setzen von Monat 
und Jahr, wollen wir in unserem Programm einbauen. Dazu wird dann 
der jeweiligen Zahl ein "M M oder ein "Y“ vorangestellt. Die Eingabe 
"M3" würde z.B. den Monat auf März setzen. 

Den Monat wollen wir nicht nur durch eine Zahl, sondern wie im Filer 
durch einen Text ersetzen. Also z.B. "Jan" für Januar. Dazu müssen 
wir natürlich die Abkürzungen den Monatsnamen haben. Wir schreiben 
sie in der Prozedur "INIT" in das Feld "MONATE". 

Die Prozedur "LEISEDATUM" übergibt das Datum an eine Variable, wie 
oben beschrieben. Wir können es nun ausgeben, wobei wir die Meldung¬ 
en aus dem Filer übernehmen. 

Nun lesen wir einen String ein, der das neue Datum enthält. Dieses 
wird dann in der Prozedur "CONVERT“ ermittelt. Es gibt hier vier 
Möglichkeiten. Ist das erste Zeichen der Eingabe ein "D", ein "M" 
oder ein "Y H , so soll nur ein Teil des Datums neu gesetzt werden. Es 
muß dann jeweils der neue Wert aus dem String geholt werden und der 
entsprechende Teil des Datums verändert werden. 

Komplexer ist die Entschlüsselung einer kompletten Datumsveränder- 
ung. Hierbei wird angenommen, daß das Datum in der Form "TT-MMM-JJ** 
vorliegt. D.h., ein Wert für den Tag, darauf ein Bindestrich. Dann 
der abgekürzte Monatsnamen, wieder ein Bindestrich, und schließlich 
der Wert für das Jahr. Falls dies js Format an einer Stelle nicht 
korrekt ist, wird das Datum nicht *erändert. 

Damit der Benutzer sich nicht absolut an dieses Format halten muß, 
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werden intern eventuell fehlende führende Nullen eingefügt. Weiter¬ 
hin wird mit der Prozedur "UPSHIFT" beliebige Groß- und Kleinschrei¬ 
bung ermöglicht und eventuelle Leerstellen entfernt. Die Prozedur 
"CONVERT" erkennt alle Eingaben, die der Filer auch erkennen würde. 

Ist das neue Datum gesetzt, wird es mit der Prozedur "SCHREIBEDATUM" 
in den Speicher und auf die Diskette gebracht. Die Diskette sprechen 
wir hier mit "BLOCKREAD/WRITE“ an. Dabei benuzten wir nur das Lauf¬ 
werk von Unit »4. 

Bei einer leeren Eingabe nehmen wir an, daß das Datum nicht verän¬ 
dert werden soll. 

Das Programm "DATESET“ macht also die Datumseingabe einfacher und 
komfortabler. Die Prozeduren "LESEDATUM" und "SCHREIBEDATUM" können 
in andere Programm übernommen werden. So kann man z.B. das Programm 
"PASH" aus Kapitel 2.3 um eine Datumsfunktion erweitern. 

Wichtige Typen und Variable 

"TDATUM“ : Typendefinition für ein Datum 

"DATUM" : Variable, die im Programm das Datum aufnimmt 

"MONATE" : Feld für die Monatsabkürzungen 

Wichtige Prozeduren 

"LESEDATUM" : liest das Datum aus den Speicher und 
übergibt es an eine Variable 

"SCHREIBEDATUM" : bringt das an diese Prozedur 

übergebene Datum in den Speicher 
und auf die Diskette 

"UPSHIFT" : entfernt in dem übergebenen String alle 

Leerzeichen und wandelt Großbuchstaben in 
Kleinbuchstaben um 

"CONVERT” : setzt das Datum aufgrund der Eingabe 


Pr ogr annm '* DATESET - TEXT ** 

program datumsetzen; 

type tdatum = packed record 

monat: G..12; 
tag : 0..31; 
jahr : 0..99; 
end; 

var datum : tdatum; 

monatei array CI..123 of stringC33; 
ds s string; 

procedure init; { Initialisiert Monatsnamen > 
begin 

monateC 13:='Jan'; 
monateC 23:='Feb'; 
monateC 33:='Mar'; 
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monateC 43:= 7 Apr 7 ; 
monateC 53:= 7 May 7 ; 
monateC 63:» 7 Jun 7 ; 
monateC 73:='Jul'; 
monateC 83:= 7 Aug 7 ; 
monateC 93:= 7 Sep 7 ; 
monateC103:» 7 0kt 7 ; 
monateC113:= 7 Nov 7 ; 
monateCl23:= 7 Dec 7 ; 
end; 

procedure lese_datum(var dato: tdatum); < Liest Datum aus Speicher > 
var sprchdatum : record case boolean of 

true s (datum**tdatum); 
false: (adresse:integer)? 
end; 

begin 

sprchdatum.adresse:» -21992; { Siehe Liste in Kap. 3.2 > 
date : =sprchdatum .datum 7 '; 
end; 

procedure schreibe_datum (neudatum:tdatum); < Schreibt Datum in Speicher und > 
var sprchdatum : record case boolean of < auf Diskette in Unit 4 > 

true : (datum:"tdatum )5 
false: (adresse:integer); 
end; 

diskdatum : record 

unusedl» packed array CO..93 of integer; 
datum : tdatum; 

unused2: packed array C11..25S3 of integer; 
end? 

begin 

< Datum in Speicher schreiben > 
sprchdatum.adresse:» -21992; 
sprchdatum.datum*:»neudatum; 

< Datum auf Diskette schreiben > 

unitread(4,diskdatum,512,2,0); < Block einiesen, um die Felder unusedl/2 > 

diskdatum.datum:»neudatum; < nicht zu veraendern > 

unitwrite(4,diskdatum,512,2,0); < Block zurueckschreiben > 

end; 

procedure upshift (t:string; var s:string); < wandelt alle Kleinbuchstaben in > 
var i:integer; < Grossbuchstaben um und entfernt > 

begin 
s := 7 7 ; 

for i:» 1 to length(t) do 
if ord(tCi3)>96 
then begin 

tCi3:=chr(ord(tCi3)-32); 
s:=concat(s,copy(t,i,l)); 
end 

eise if tCi3 <> 7 7 then s:»concat(s,copy(t,i,l>); 

end; 

procedure convert(s:string; var datum:tdatum); 
var neudatum:tdatum; 

d:integer; 

function int(t:string):integer; < Wandelt eine zweistellige Zahl in > 
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var i,xiinteger; < String t in einen Integer-Wert um > 

begin 
xs=0; 

for is« 1 to 2 do 

xi B 10#x + (ord(tCiJ)-ord('O')); 
intx=x; 
end; 

function finddatum<t:string)xinteger; { Wandelt Monatsnamen in die > 
var isinteger; < entsprechende Zahl um > 

s:string; 
begin 
i:°l; 
repeat 

upshift(monateCi3,s); 
i:=i+l; 

until (t=s) or <i=13); 

if (i=13) and (tOs) then finddatum:=0 

eise finddatum:=i-l; 

end; 

begin 

if sCID in C'D' ,'M' ,'Y'J 

then if length(s)<3 then insertC'O',s,2); < Null einfuegen > 
if sClD a 'D' then f nur Tag veraendern > 
begin 

d: s int(copy(s,2,2)); < umwandeln > 

if <d>0> and (d<32) then 

datum.tag:=d; < bei gueltigem Tag neu setzen > 

end; 

if sCl>'M' then 

begin 

ds=int(copy (s,2,2)); 
if (d>0) and (d<32) then 
datum.monat:-d; 

end; 

if sCl>'Y' then 

begin < nur Jahr veraendern > 
d:=int(copy(s,2,2)); 
if <d>0) and <d<100) then 
datum.jahr:=d; 

end; 

if (sC13 in C'l'..'9 # 3) and (length(s)=9> 
then begin 

neudatum x «datum; 

if po3(*"" # jS) a 2 then insertC'O',s,l); < Null einfuegen > 
ds=int(copy(5,l,2)); f Tag > 
if (d>0) and (d<32) then 
begin 

neudatum.tag:=d; 
if sC3!3«'-' then 
begin 

d:=finddatum<copy(s,4 f 3)); < Monat > 
if d>0 then 
begin 

neudatum.monat:=d; 
if sC7D='then 
begin 

d:-int(copy(S|8,2) ); < Jahr > 
if (d>0) and CdClOQ) then 
begin 
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neudatum.jahr:=d; 
datum:=neudatum; 
end; 

end; 

end; 

end; 

end; 

end; 

end; 

begin 

init; 

lesedatum(datum); 

writeln('Today is ' »datum.tag,, 

monateCdatum.monatD,,datum.jahr); 
writeC'New date ? '); 
readln(ds); 

if ds<>" then < Nicht bei leerer Eingabe > 
begin 

upshift(ds,ds); 
convertCds,datum); 
schreibedatum(datum); 
end; 

writeln('The date is ' f datum.tag,, 

monateCdatum.monatD,,datum.jahr); 

end. 


3.5 GETKEY — Wir umgehen 
den Ta.s ta.t,urpuf*f*or 

In Basic gibt er den Befehl GET. Es wartet auf die Eingabe eines 
Zeichens von der Tastatur, ln Pascal gibt es eine ähnliche Prozedur, 
nämlich READ(CH). Sie holt ebenfalls eine Eingabe von der Tastatur. 
Jedoch ist die Eingabe in Pascal anders organisiert. Es gibt nämlich 
einen Tastaturpuffer. Das bedeutet, daß jeder Tastendruck zunächst 
in einem Zwischenspeicher abgelegt wird (dem Puffer), aus dem bei 
der nächsten Eingabe die Zeichen kommen. Sie können dies ausprobie¬ 
ren, indem Sie z.B. in der Kommandozeile die Zeichenfolge "Eipascal" 
eintippen. POS wird zunächst den Editor aufrufen. Dann wird, lange 
nachdem Sie "I" gedrückt haben, der Insert-Modus aufgerufen und 
darauf das Wort “pascal" in den Text eingegeben. Das kommt durch den 
Tastaturpuffer, in dem sich Ihre Eingaben befinden, und nacheinander 
an das Programm gegeben werden. 

Oft gibt es aber Situationen, in denen die Eingabe den Benutzer 
weiterreichende Folgen hat. Durch den Tastaturpuffer ist die Gefahr, 
daß der Benutzer aus Versehen eine Taste doppelt drückt, vergrößert. 
Es wäre günstiger, wenn wir den Tastaturpuffer umgehen könnten. 

Vor dem gleichen Problem steht man oft bei der Programmierung von 
Spielen, bei denen es auf die Reaktionsschnelligkeit des Spielers 
ankommt. Der Tastaturpuffer gibt ihm einen zu großen Zeitvorteil. 

Wir brauchen also eine Prozedur, die alle vorhergehenden Tastatur¬ 
eingaben ignoriert und auf eine Eingabe wartet. Das erreichen wir 
mit der Prozedur GETKEY. 
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Progr SLinm ** GETKEY . TEXT ** 
procedura g©tkoy(var keyrchar); 

type ( TYPE ist lokal zu GETKEY ! > 

byte * 0..255; 

spchnnhalt * packed arrayC0..Q3 of byte; 
spchrstelle » record case boolean of 

true: (adresse:integer); 
false:(inhalt: A spchrinhalt) 
end; 

var dummy:spchrstelle; 


begin 

unitclear(1); ( Tastaturpuffer loeschen ) 

dummy.ad resse:=-16384; ( SCOOO vom Keyboard ) 

repeat ( Auf Taste warten. ) 

until (dummy.inhalt Ä C0I>127); 

read(keyboard,key); ( Taste einiesen ) 

end; ( Ab hier wird Tastatur- ) 

( puffer wieder benutzt ! ) 


Mit "UNITCLEARC 1) " löschen wir den gesamten Tastaturpuffer, und war¬ 
ten dann auf ein Zeichen. Die Tastatur des Apple ist so geschaltet, 
daß immer dann, wenn eine Taste gedrückt wurde, die Speicherstelle 
SCOOO größer 127 wird. Sonst ist sie kleiner 128. 

Mit "PEEK" ist es nun kein Problem, abzufragen wie diese Speicher¬ 
stelle aussieht. In “GETKEY** ist M PEEK" nicht als einzelne Funktion 
definiert, die Funktionsweise ist aber genau die gleiche. Wir weisen 
"DUMMY.ADRESSE“ den Wert SCOOO, oder als Integerzahl, - 16384 zu und 
warten dann mit einer "REPEAT-UNTIL" Schleife darauf, daß "DUMMY.IN¬ 
HALT''«!))" größer als 127 wird. Tritt dies ein, so ist eine Taste 
gedrückt worden, und wir können ein Zeichen mittels "READ(KEYBOARD,- 
KEY)" einiesen, das zugleich an eine Variable Parameter übergeben 
wird . 

Der Aufruf erfolgt mit z.B "GETKEY(CH)". 


3.6 Manipulat i onen sl m 
Eingabepuff © r 

Unter POS ist ein sogenannten "Type-ahead-buffer" implementiert. Er 
bewirkt, daß von der Tastatur auch dann Zeichen eingelesen werden, 
wenn keine Eingabe vom Programm erwartet wird. Dies wird so bewerk¬ 
stelligt, daß bei jeder Programmoperation auch die Tastatur abge¬ 
fragt wird. Ist ein Taste gedrückt, so wird das entsprechende Zei¬ 
chen eingelesen. Es wird dann in den sogenannten Tastaturpuffer 
übernommen. Danach wird im Programm fortgefahren. Wird nun vom Pro¬ 
gramm eine Eingabe erwartet, wird nachgeschaut, ob sich im Tasta¬ 
turpuffer noch Zeichen befinden. Ist dies der Fall, so werden diese 
als Eingabe gewertet. Ist der Tastaturpuffer leer, so kommen die 
nächsten Eingaben von der Tastatur. 

Dies kann man leicht ausprobieren. Man ruft von der Hauptkommando¬ 
zeile den Filer mit "F" auf. Während der Filer geladen wird, gibt 
man nun langsam die Zeichen "L",":" und <ret> ein. Wenn der Filer 
geladen ist, wird nun automatisch eine Directory1lste für die Pre- 
fix-Diskette ausgegeben. Dieser Tastaturpuffer hat den Vorteil, daß 
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keine Eingaben verloren gehen können. Weiterhin muß der Benutzer 
nicht erst darauf warten, bis Programme geladen, oder Kommandos aus¬ 
geführt worden sind. 

In diesem Kapitel wird- eine Routine vorgestellt, die es ermöglicht, 
von einem Programm aus ein bestimmtes Zeichen in diesen Tastaturpuf¬ 
fer zu setzen. Der Sinn einer solchen Routine ist es, Programm auto¬ 
matisch aufrufen zu können. So könnte man z.B. in einem selbstge¬ 
schriebenen Assembler oder Compiler die Möglichkeit einbauen, nach 
einem Fehler direkt in den Editor zu gehen. Man braucht dazu nur das 
Zeichen "E" in den Tastaturpuffer zu schreiben, und danach das Pro¬ 
gramm zu verlassen. Nach Verlassen des Programms kehrt das System in 
die Hauptkommandozeile zurück und erwartet eine Eingabe. Da sich im 
Tastaturpuffer ein "E" befindet, wird dieses als Eingabe gewertet 
und der Editor aufgerufen. 

Um diese Routine zu realisieren, müssen wir uns auf die Assembler¬ 
ebene begeben. An eine Maschinenroutinen wird ein Zeichen übergeben, 
das dann von dieser in den Tastaturpuffer geschrieben wird. 

Damit wir ein Zeichen in den Tastaturpuffer schreiben können brau¬ 
chen wir zunächst einige Informationen über den Tastaturpuffer 
selbst. 

Es handelt sich bei dem Puffer um einen Speicherbereich, in dem die 
eingelesenen Zeichen zwischengespeichert werden. Dieser Bereich be¬ 
findet sich unter Apple-Pascal bei $3B1 (hex) und hat eine Länge von 
maximal 78 Zeichen ($4E (hex)). 

Um zu wissen, wo in diesem Puffer das nächste Zeichen abgelegt wer¬ 
den muß, gibt es einen Zeiger, "WPTR" (Write PoinTeR). Er befindet 
sich unter Apple-Pascal bei SBF19 (hex) und ist logischerweise eine 
Zahl zwischen 0 und 78. Soll nun ein Zeichen in den Tastaturpuffer 
geschrieben werden, so kommt es an die Speicherstelle, die sich aus 
Pufferanfang + "WPTR" ergibt. 

Falls "WPRT" einmal über das Pufferende hinauszeigt, so wird "WPTR" 
auf 0 gesetzt, und das nächste Zeichen wird an Anfang des Puffer 
gespeichert. Man spricht hier von einem Ringpuffer. 

Damit Zeichen aus dem Puffer gelesen werden können, gibt es einen 
zweiten Zeiger, "RPTR" (Read PoinTeR). Die Speicherstelle, aus der 
das nächste Zeichen gelesen werden muß, ergibt sich aus Pufferanfang 
+ “RPTR 1 *. Hier gilt auch, daß dieser Zeiger auf 0 zurück gesetzt 
wird, wenn er über das Pufferende hinauszeigt. 

Es kann nun verkommen, daß der Puffer voll ist, d.h., daß schon 78 
Zeichen abgespeichert sind. Dies ist dann der Fall, wenn M WPRT M nach 
der Inkrementierung gleich “RPTR" ist. Er "überholt" "WPTR" sozusa¬ 
gen von hinten. Dann wird die Annahme eines neuen Zeichens verwei¬ 
gert. Auf dem Apple wird als Meldung ein Piepston erzeugt. 

Wenn wir also ein Zeichen in den Tastaturpuffer schreiben wollen, 
müssen wir wie folgt vorgehen. Zunächst wird "WPTR" um 1 erhöht. Ist 
er größer als 78, so wird er auf 0 zurückgesetzt. Dann wird nachge¬ 
prüft, ob der Puffer schon voll ist. Dies ist dann der Fall, wenn 
"WPTR" gleich "RPTR" ist. Trifft dies zu, wird ein Piepston ausgege¬ 
ben, und die Routine verlassen. 

Ist der Puffer noch nicht voll, so wird der neue "WPTR" gesetzt und 
Das Zeichen in den Puffer an der Speicherstelle Pufferbeginn + 
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"WPRT" abgelegt. Damit befindet sich das neue Zeichen im Tastatur¬ 
puffer . 

Wir können nun das Assemblerprogramm schreiben. Es besteht aller¬ 
dings nicht nur aus den oben genannten Schritten. 

Zur Sicherheit retten wir vor dieser Routine alle 6502 Register auf 
dem Stack. Nach der Routine holen wir sie wieder von Stack, und 
stellen so den Ausgangszustand wieder her. Es könnte sein, daß diese 
zwei Schritte überflüssig sind. Um das festzustellen müßte man je¬ 
doch detailliert nachprüfen, ob vor dem Aufruf der Routine in den 
Registern Werte stehen, die hinterher weiterverwendet werden sollen. 
Man kann eigentlich davon ausgehen, daß man bei Assemblerroutinen 
alle Register zur freien Verfügung hat; wir speichern die Register 
nur sicherheitshalber ab. 

Zusätzlich gehören zur Assemblerroutine noch zwei Teile, die die 
Zusammenarbeit mit dem Pascal-Programm übernehmen. Nach dem Aufruf 
einer Assemblerroutine befinden sich alle Parameter auf dem Stack. 
Dabei ist das Parameter, das zuerst übergeben wird am "tiefsten" und 
das, das zuletzt übergeben wird am "höchsten". Wir haben bei unserer 
Routine nur ein Parameter, nämlich ein Zeichen. Dieses Zeichen ist 
von Typ "CHAR". Dieser Typ nimmt normalerweise 2 Bytes ein, von de¬ 
nen das höherwertige zuerst auf den Stack geschoben wird. Da wir 
aber nur 255 Zeichen kennen, ist dieses unbedeutend. Wir holen zu¬ 
nächst mit "PLA" das niederwertigere Byte vom Stack und speichern es 
zwischen. Damit der Stack nicht in Unordnung gerät ist noch eine 
"PLA"-Instruktion nötig, die das bedeutungslose zweite Byte vom 
Stack holt. Damit ist das Parameter vom Pascal-Programm an die 
Assemblerroutine übergeben. 

Beim Aufruf einer Assemblerroutine befindet sich jedoch noch ein 
Wert auf dem Stack. Er enhält die Adresse, an die nach der Abarbei¬ 
tung der Assemblerroutine zurückgesprungen werden soll. Sie befindet 
sich "über" den Parametern oben auf dem Stack. Sie muß zu Beginn des 
Assemblerprogramms mit zwei "PLA"-Instruktionen eingelesen und 
zwischengespeichert werden. Bevor das Assemblerprogramm mit "RTS" 
verlassen werden kann, muß sie mit zwei "PHA"-Instruktionen wieder 
auf den Stack gelegt werden. Geschieht dies nicht, kehrt das System 
nicht an die richtige Adresse zurück und stürzt ab. 

Damit ist das Assemblerprogramm komplett und kann eingeben und 
as8embliert werden. 


Progr scmm ** . TEXT ** 


•proc pushchar,1 ; 1 Parameter 


ret 1 

. equ 

0 

; Zwischenspeicher fuer die Ruecksprung- 

reth 

. equ 

1 

; adresse und das Zeichen. < Speicher— 

char 

. equ 

2 

; plaetze 0-35 koennen ja benutzt werden 

cbuflen 

. equ 

04E 

; Laenge des Zeichenpuffers 

conbuf 

. equ 

003B1 

; Adresse des Zeichenpuffers 

rptr 

. equ 

0BF16 

• Lesezeiger des Puffers 

wptr 

. equ 

0BF19 

; Schreibezeiger des Puffers 

bell 

. equ 

0DB1A 

; Gibt ein CHR<7) aus (Klingel) 


pla ; Ruecksprungadresse von Stack holen und 
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sta retl 
pla 

sta reth 
pla 

sta char 
pla 


savo php 
pha 
txa 
pha 
tya 
pha 

lda char 

Idx wptr 
inx 

cpx ttcbuflen 
bne labe11 
ldx »0 

labeil cpx rptr 
bne bufok 
jsr bell 
jmp restore 

bufok stx wptr 

sta conbuf,x 

restore pla 
tay 
pla 
tax 
pla 
plp 

lda reth 
pha 

lda retl 
pha 

rts 

. end 


; Zwischenspeichern 


; Zeichen vom Stack holen und zwischen- 
; speichern. 

; (Das Zeichen wird als 16-Bit-Wort ueber- 
; geben. Damit ist das zweite Byte 
j bedeutungslos. 

; Alle 6502-Register auf Stack schieben 
j und damit retten. 


; uebergebenes Zeichen 

; Zeigt der Zeiger ueber den Puffer 
; hinaus 7 


; Wenn ja, am Anfang des Puffers das 
; Zeichen ablegen 
; 181 der Puffer voll 7 

; Wenn ja, Klingelzeichen ausgeben und 
; das Zeichen nicht annehmen 

; Schreibezeiger erhoehen 
; Zeichen im Puffer ablegen 

; Alle 6502-Register vom Stack holen 
; und somit den Ausgangszustand 
; wiederherstellen 


; Ruecksprungadresse aus dem Zwischen- 
; Speicher holen und auf den Stack 
; schieben. 


; zurueck zum Pascal-Programm ... 


Wir schreiben nun ein kleines Demoprogramm in Pascal. Die Assembler¬ 
routine wird als "EXTERNAL" deklariert. Sie heißt M PUSHCHAR 
(C:CHAR)“. "C ist das Zeichen, das in den Tastaturpuffer geschrie¬ 
ben werden soll. 

Das Programm gibt eine kleine Kommandozeile aus. Der Benutzer kann 
auswählen, ob er den Editor oder den Filer starten will, oder ob er 
eine Liste des Directorys ausgeben haben will. Je nachdem werden die 
entsprefer geschrieben werden soll. 

Das Programm gibt eine kleine Kommandozeile aus. Der Benutzer kann 
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auswählen, ob er dene Directoryliste die Befehlsfolge "FL:<ret>“. 
Daraufhin wird das Programm verlassen, und die Eingaben aus dem Tas¬ 
taturpuffer abgearbeitet. 


Prog ramm ,, PUSHIT - TEXT" 
program pushdemo; 
var c:char; 

procedure pushcharCc:char); < Assembler Routine ) 

external; 


begin 

writelnC'E)ditor F)iler L)ist of Directory'); 
repeat < Auswahl per Tastatur ) 

read(c); 

until c in C'E','e','F','f','L','1' 1 ; 
case c of 

'E','e': pushchar('E'); C Editor Kommando ) 

'F','f': pushchar('F'); C Filer Kommando ) 

'L','1': begin 

pushchar<'F'); ( Filer aufrufen und danach ) 

pushchar<'L'); ( das L)ist Kommando fuer ) 

pushchar; ( die Prefix Diskette ) 


pushcharC ehr(13)); 
end 

end; 

end. C Zu diesem Zeitpunkt befinden sich im Zeichenpuffer die ) 
( entsprechenden Kommandos. Sie werden nach Verlassen ) 

( des Programms so ausgefuehrt, als wenn sie von der ) 

( Tastatur aus eingegeben worden waeren. ) 


Damit man ein lauffähiges Programm erhält, ist es noch nötig, mit 
dem Linker die Assemblerroutine in das Hauptprogramm einzubinden. 
Nach der Eingabe von “L“ ergibt sich folgender Bildschirmdialog. 


LINKING... 

APPLE PASCAL LINKER CI.13 
HOST FILE? PUSHIT 
OPENING PUSHIT.CODE 
LIB FILE? PUSH 
OPENING PUSH.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING PUSHDEMO 
READING PUSHCHAR 
OUTPUT FILE? PUSHDEMO 
LINKING PUSHDEMO tf 1 
COPYING PROC PUSHCHAR 

Bild 3.6.1: Dialog beim Linkerlauf 
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3.7^ Ein Ma s clninoncociö Mon x t. o r* 
für- Pascal 

Kapitel 3.2 stellte dem Leser eine Liste nützlicher Speicherstellen 
im Apple-Pascal vor. Ihm ist es aber bis jetzt nur möglich gewesen, 
bestimmte Speicherplätze anzusprechen und zu verändern. Wir brauchen 
also einen kleinen "Monitor“, d.h. ein Programm, mit dem wir belie¬ 
big direkt im Speicher arbeiten können. Bei der Entwicklung wollen 
wir uns am sogenannten “Autostart-Monitor“ orientieren, der bei 
jedem Apple 11+ im ROM fest installiert ist. 

Nehmen wir also das "APPLE II REFERENCE MANUAL“ zur Hand und schla¬ 
gen wir auf Seite 59 eine Zusammenfassung der Kommandos dieses Moni¬ 
tors nach. 

Wir können nicht alle Funktionen übernehmen, da einige unter POS 
einerseits schlecht realisierbar wären, und zum anderen kaum benö¬ 
tigt werden. Wir werden in unserem Programm folgende Funktionen des 
Autostart-Monitors nicht berücksichtigen: das Lesen und Schreiben 
auf Kassette und das Starten und Disassemblieren von Programmen. Von 
den übrigen übernehmen wir nur die Addition und Subtraktion zweier 
Werte. 


Das Format der Befehle-übernehmen wir vom Autostart-Monitor. Ebenso 
die Ausgabe mit ihrer 40 Spalten Formatierung. Alle Ein- und Ausga¬ 
ben sollen in hexadezimaler Schreibweise erfolgen, wobei die Werte 
nicht durch ein bestimmtes Zeichen Cz.B. “$“) als hexadezimal ge- 
kennzeichenet werden sollen. 


Wir haben es also mit den folgenden Befehlen zu tun: 


adr Zeigt den Inhalt der Speicherstelle adr an 
adr.adr Zeigt bis zu B Speicherzellen ab adr an 

adr:val val .. Schreibt die Werte val ab adr in den Speicher 


adrl<adr2.adr3M Verschiebt adr2 bis adr3 nach adrl 
adrl<adr2.adr3V Vergleicht adr2 bis adr3 mit adrl folgende 

val+val Zeigt Summe an 

val-val Zeigt Differenz an 

adr ist eine 16 Bit Adresse (0000-FFFF) 
var ist ein 6 Bit Wert (00-FF) 


Wie wir sehen, kommt bei jedem Kommando ein bestimmtes Zeichen in 
der Eingabe vor, z.B. “+“ bei der Addition. Also können wir über 
diese Zeichen "M",“V") die Befehle unterscheiden. 
Falls nur eine Adresse angegeben wird, so handelt es sich um den 
ersten Befehl. 


Der Rest ist relativ einfach. Wir benötigen Routinen, um Adressen 
und Werte von hexadezimaler Schreibweise in dezimale Integerzahlen 
umzuwandeln, und eine Routine, um das Ergebnis der Addition bzw. 
Substraktion hexadezimal auszugeben. 

Es ergibt sich das folgende Programm: 
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F* r o g r amm •• MO IST I TOR . TEXT 

program monitor; 
type 

byte a 0..255; 

spchrinhalt = packed arrayCO.,OD of byte; 
spchrstelle = record case boolean of 

true: (adresse:integer); 
false:(inhalts^spchrinhalt) 
end; 


var 

hexstr,cmd:string; 
bye:boolean; 
point:integer; 

procedure pokeCadresse:integer; inhaltsbyte); { aus Kap 3.1 > 

var dummysspchrstelle; 

begin 

dummy.adresse:=ad resse; 
duamy. inhalt'TOIl :=inhalt| 
end; 

function peek(adresse:integer): byte; < aus Kap 3.1 > 

var dummy:spchrstelle; 

begin 

dummy.ad resse:=adresse; 
peek:=dummy.inhalt'TO]; 
end; 

procedure skip; < Leerstellen in Eingabe ueberlesen > 
begin 

if point>length(cmd> then exit(skip); 
while cmdCpoint3=' ' do 
begin 

point:=point+l; 

if point>length(cmd) then exit(skip); 
end; 

end; 

function getvalueCvar value:integer):boolean; < holt ein Byte aus dem > 

var ch:stringC13; { Eingabestring. Bei einem Fehler wird er Funktionswert > 
< true > 

procedure error; 
begin 

getvalue:=true; 
exit(getvälue); 
end; 

begin 

skip; 

ch:=' 

getvalue:=false; 

if point>length(cmd) then error; 
chClD:«cmdCpointD; 
if pos(ch,hexstr)«D then error; 
value:=pos(ch,hexstr)-l; 
point:=point+l; 

if point>length(cmd) then exit(getvalue); 
chC13:=cmdCpoint]; 

if pos(ch,hexstr)=0 then exit(getvalue); 
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va 1 ue s=va 1 ue*l 6 +pos(ch,he xstr)- 1 ; 
point:=point+l; 
end; 

function getadress(var value:integer):boolean; < holt eine Adresse aus > 
var chrstringCID; < dem Eingabestring > 

procedure error; 
begin 

getadress 2 =*t rue; 
exit(getadress); 
end; 

begin 
skip; 
chs=' ' 5 

getadress *=f a 1 se; 
if point>length(cmd) then error; 
chCl3 1 =cmdCpoint3; 
if pos(ch,hexstr )=0 then error; 
value 2 =pos(ch,hexstr)-l; 
points=point+l; 

for point:=point to point+3 do 
begin 

if point>length(cmd) then exit(getadress); 
chCl3 2 =cmdCpoint3; 

if pos(ch,hexstr )=0 then exit(getadress); 
va 1 ue 2 3 va 1 ue*l 6 +pos (ch, h ex s t r) - 1 ; 
end; 

end; 

procedure wrbyt(value:integer); < gibt ein Byte in hexadezimaler > 
begin { Schreibweise aus > 

write(hexstrC(value div 16)+13, 

hexstrCfvalue mod 16)+13, # '); 

end; 

procedure wradr(value:integer); < gibt eine Adresse aus > 
begin 

if value>-l then write(hexstrC((value div 256) div 16)+13, 
hexstrC((value div 256) mod 16)+13, 
hexstrC((value mod 256) div 16)+13, 
hexstrC((value mod 256) mod 16)+13) 

eise begin 

value 2 «-value-l; 

write(hexstr£16-((value div 256) div 16)3, 
hexstrC16-((value div 256) mod 16)3, 
hexstrC16-((value mod 256) div 16)3, 
hexstrC16-((value mod 256) mod 16)3); 

end; 

write( # - '); 
end; 

procedure disrange; < gibt einen Speicherauszug in hexadezimaler > 
var Start,ende 2 integer; { Schreibweise aus > 
fimboolean; 

procedure error; 
begin 

write(chr(7)); 
exit(disrange); 
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end; 

begin 

if getadress(start) then error; 
skip; 

if cmdCpointllO' .' then error; 
point:npoint+1; 

if getadress(ende) then error; 

if start mod 8 > 0 then wradr(start); 

repeat 

if start mod 8=0 then 
begin 
writeln; 
wradrCstart); 
end; 

wrbytCpeek(start)); 
fin:=(start=ende); 
start:«start+l; 
until fin; 
writeln; 
end; 

procedure dis; { gibt naechstes Byte aus > 

var valiinteger; 

begin 

if getadress(val) then write(chr(7)) 
eise begin 

wradr(val); 
wrbytCpeek(val)); 
writeln; • 
end; 

end; 

procedure störe; < veraendert eine Speicherstelle > 
var val,start:integer; 

procedure error; 
begin 

write(chr(7>); 
exit(store); 
end; 

begin 

if getadress(start) then error; 
skip; 

if cmdCpoint3<>':' then error; 
point:=point+l; 
while not getvalue(val) do 
begin 

poke(start,val); 
start:=start+l; 
end; 

end; 

procedure move; < bewegt einen Speicherblock > 
var start t ende,destzinteger; 

fin:boolean; 

procedure error; 
begin 

write(chr(7)); 
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exit(move); 
end; 

begin 

if getadressCdest) then error; 
skip; 

if cmdCpointDO'<' then error; 
point:=point+l; 

if getadress(start) then error; 
skip; 

if cmdCpointDO'.' then error; 
pointi=point+l; 

if getadress(ende) then error; 
repeat 

poke(dest,peek(start)); 
fin:=(start=ende); 
dest:=dest+l; 
start :=5start+l; 
until fin; 
end; 

procedure verify; < vergleicht zwei Speicherbereiche > 
var start,ende,destiinteger; 

finsboolean; 

procedure error; 
begin 

write(chr(7)); 
exit(verify); 
end; 

begin 

if getadress(dest) then error; 
skip; 

if cmdCpointDO'< # then error; 
points=point+l; 

if getadress(start) then error; 
skip; 

if cmdCpointDO'.' then error; 
point:=point+l; 

if getadress(ende) then error; 
repeat 

if peek(start)Opeek(dest) then 
begin 

wradr(start); 
wrbyt(peek(start)); 
write('('); 
wrbyt(peek(dest)); 
writeln(chr(ß),')'); 
end; 

f in; s (startende) ; 
desti«dest+l; 
start:=start+l; 
until fin; 
end; 

procedure add; < addiert zwei Bytes und gibt das Ergebnis aus > 
var al,a2:integer; 

procedure error; 
begin 
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write<chr(7)); 
exit(add); 
end; 

begin 

skip; 

if cmdCpoint3='+' then al:=0 
eise begin 

if getvalue(al) then error; 
skip; 

if cmdCpoint3<>' +' then error; 
end; 

point:=point+l; 
if getvalue(a2) then error; 
al:=al+a2; 
al:=al mod 256; 
wrbytCal); 
writeln; 
end; 

procedure sub; < substrahiert zwei Bytes und gibt das Ergebnis aus > 
var al,a2:integer; 

procedure error; 
begin 

write(chr(7)); 
exit(sub); 
end; 

begin 

skip; 

if cmdCpoint3='- / then al:=0 
eise begin 

if getvalue(al) then error; 
skip; 

if cmdCpoint3<>'then error; 
end; 

point:=point+l; 
if getvalue(a2) then error; 
al:=al-a2; 

if al<0 then al:=256+al; 
wrbytCal); 
writeln; 
end; 

begin 

bye:=false; 

hexstr:='0123456789ABCDEF'; 
repeat < Hauptschleife > 
writeC'*'); 
readln(cmd); 
point:=1; 
if crodO" then 

if posC': ' f cmd)O0 then störe 

eise if posC'M',cmd)<>0 then move 
eise if pos('V' ,c(nd)<>0 then verify 
eise if posC'.',cmd)<>0 then disrange 
eise if posC' «•' ,cmd)OG then add 
eise if posC'-',cmd)<>0 then sub 
eise if cmd='Q' then bye:=true 
eise dis; 
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until byej 
end. 


Wichtige Prozeduren 


"PEEK ","POKE" 
M WRBYT" 

"WRADR" 

“STORE" 


Wurden aus Kapitel 3.1 übernommen 

Ein Byte in hexadezimaler Schreibweise 
ausgeben 

Ein Adresse in hexadezimaler 
Schreibweise ausgeben 

Bytes in Speicherbereich schreiben 
Kommando) 


"MOVE" 

"VERIFY" 

"DISRAKGE" 

"ADD" 

"SUB" 

"DIS" 


: Bytes verschieben ("M" Kommando) 

: Bytes vergleichen ("V" Kommando) 

: Speicherbereich ausgeben 

("nnnn.mmmm" Kommando) 

: addieren zweier Hexzahlen (”+“ Kommando) 

: substrahieren zweier Hexzahlen 
Kommando) 

: nächste Speicherzellen ausgeben (bei 
leerer Eingabe) 


Um das Programm nicht unnütz aufzublähen wurde darauf verzichtet, 
sämtliche Fehleingaben zu erkennen. So wird z.B. die Eingabe “10<" 
nicht als Fehler erkannt und mit einem Ton quittiert. Vielmehr wird 
der Speicherinhalt der Adresse *10 ausgegeben und das "<" überlesen. 
Da dieses Vorgehen keinerlei Schaden in Form von Fehlern oder Pro- 
grammabbrüche zur Folge hat, werden diese Eingabefehler toleriert. 


Noch ein Hinweis zur Benutzung des Monitors. In der Languagekarte, 
in der POS steht ist der Speicherbereich SD000 bis SDFFF zweimal 
vorhanden. Man kann natürlich immer nur eine sogenannte Bank benutz¬ 
ten. Auf die andere schaltet man durch Ansprechen bestimmter Spei¬ 
cherstellen um. Da jedoch der P-Code Interpreter in einer Bank 
steht, und unser Monitor ein Pascal-Programm ist, darf nicht in die 
andere Bank geschaltet werden. Das Ergebnis wäre ein Systemabsturz. 

Das Programm ist gut geeignet für Erweiterungen durch den Leser. 
Interessante neue Befehle könnten disassemblieren, assemblieren, das 
o.g. Problem mit der Bankumschaltung beseitigen, Folgen von Bytes 
suchen und Speicherauszüge in ASCII darstellen. Auch ein Dis&ssemb- 
ler für P-Code wäre nützlich. 


3.3 Wie man einen Reset abfängt 

In APPLESOFT-Basic ist es durch "Verbiegen" eines Zeigers möglich, 
das; Drücken der Reset-Taste so abzufangen, daß ein Programm nicht 
abgebrochen, sondern weitergeführt wird. Wird unter POS die Reset- 
Taste gedrückt, so führt das System einen Kaltstart durch, d.h. es 
wird neu gebootet. Das laufende Programm wird abgebrochen, und alle 
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Daten sind verloren. Eventuell bleiben auf der Diskette offene 
Dateien bestehen, mit denen nicht weitergearbeitet werden kann. Die 
Folgen sind also recht verheerend. 

In diesem Kapitel wird ein Trick beschrieben, wie man eben dies ver¬ 
meiden kann. Es wird kein Kaltstart durchgeführt und man kann anhand 
einer Variablen erkennen, ob Reset gedrückt wurde. 

Dabei gehen wir so vor, daß wir zunächst fordern, daß sich das ei¬ 
gentliche Hauptprogramm in einer einzelnen Prozedur befindet. Wir 
verbiegen vorher den Reset-Vektor auf eine Assemblerroutine, die 
diese Prozedur mit "EXIT" verläßt. Nun gibt es noch eine Variable, 
die zunächst auf "TRUE" gesetzt wird. Sie wird nur dann auf "FALSE" 
gesetzt, wenn das Hauptprogramm korrekt verlassen wird. Dies bedeut¬ 
et, das die letzte Anweisung im Hauptprogramm z.B. "RESET:=FALSE" 
lautet. Da sich das Hauptprogramm in einer einzelnen Prozedur befin¬ 
den, die bei einem Reset verlassen wird, kann man im eigentlichen 
Hauptprogramm, d.h. dem Teil, der sich zwischen M BEGIN" und "END. 1 * 
befindet, anhand dieser Variablen feststellen, ob Reset gedrückt 
wurde. Han kann dann Anweisungen aufrufen, die Daten retten. 

Den oben genannte Reset-Vektor gibt es auch unter POS, da er vom 
6502-Prozessor gefordert wird. Er befindet sich immer in den Spei¬ 
cherstellen SFFFC und SFFFD (hex). Die dort stehenden Werte werden 
als Adresse aufgefasst. Diese Adresse wird dann vom Prozessor wie 
bei einem "JMP" angesprungen. Dort sollte dann eine Routine stehen, 
die einen Reset behandelt. Normalerweise zeigt der Reset-Vektor un¬ 
ter POS auf SFEEF (hex). Die dort stehende Routine veranlasst den 
beschriebenen Kaltstart. Da POS in der Languagekarte befindet, kön¬ 
nen wir diesen Zeiger mit "POKE“ verändern. 

Das nächste Problem ist, wo wir unsere Assemblerroutine unterbrin¬ 
gen. Da es kaum ausreichenden freien Speicherplatz gibt, können wir 
sie nicht an eine bestimmte Adresse schreiben. Wir sich noch zeigen 
wird, ist dies auch nicht nötig, da die Routine "re1okatibe1" ist, 
d.h. sie läuft an jeder beliebigen Speicheradresse. Dies hängt damit 
zusammen, daß sie keine bestimmten Sprünge innerhalb der Routine 
benötigt. Es ist also egal, wo sich die Routine befindet; solange 
der Reset-Vektor auf sie zeigt funktioniert sie auch. 

Wir bringen unsere Routine einfach in einer Variablen unter. Damit 
wir wissen, wo die Variable, und damit auch unsere Assemblerroutine 
sich im Speicher befindet, deklarieren wir sie als Zeiger und legen 
sie mit "NEW" auf den sogenannten "Heap”. Auf dem Heap befinden sich 
alle Variablen unter Pascal. Mit "NEW" kommt eine neue Variable hin¬ 
zu. Man nennt dies dynamische Variablenverwaltung. Die Speicher¬ 
adresse der Variablen erhalten wir, indem wir einfach den Wert des 
Zeigers auslesen. 

Unsere Maschinenroutine zur Behandlung eines Reset benötigt 18 
Bytes. Wir deklarieren die oben genannte Variable als eine Feld mit 
18 Bytes. Wir können nun über den Feldindex unsere Routine in die 
Variable schreiben. 

Diese Routine hat eine einzige Aufgabe. Sie soll das Hauptprogramm, 
das sich ja in einer Prozedur befindet, mit einem "EXIT" verlassen. 
"EXIT" ist eine Funktion des P-Code Interpreters, und wir können die 
Adresse dieser Funktion mittels der Liste aus Kapitel 3.2 feststel¬ 
len. Im "Apple Pascal Operating System" Handbuch sind auf Seite 242 
die Parameter beschrieben, die "EXIT" erwartet. Ubergeben werden die 
Segment- und die Prozedurnummer der Prozedur, die verlassen werden 


94 


http://www.robert-tolksdorf.de 



UTILITIES Pascal 


soll. Beide müssen sich vor Aufruf von "EXIT" auf dem Stack befin¬ 
den, wobei die ersten zwei Bytes auf dem Stack die Prozedurnummer 
darstellen, und die zweiten zwei die Segmentnummer. 

Da wir annehmen, daß sich das Hauptprogramm in der ersten Prozedur 
im Programm befindet, ist die Segmentnummer 1 und die Prozedurnummer 
2. Wenn sich das Hauptprogramm nicht in der ersten Prozedur befinden 
soll, muß man zunächst die Segment- und Prozedurnummern feststellen. 
Han macht dies mit der “$L" Compileroption. Hat man diese zwei Wei— 
te, setzt man sie entsprechend in die Assemblerroutine ein. 

Diese Routine ist nun einfach aufgebaut. Zunächst wird die zweite 
Speicherbank der Languagekarte eingeschaltet, da sich dort der P- 
Code Interpreter befindet. Nun wird zunächst die Segment- und dann 
die Prozedurnummer auf den Stack geschoben. Danach wird "EXIT" bei 
SE784 (hex) mit "JMP" angesprungen. 

Die Pascalprozedur, die dieses Assemblerprogramm installiert baut 
sich so auf, daß zunächst die Variable, in der sich die Assembler¬ 
routine befinden soll, mit "NEW“ auf den Heap gelegt wird. Dann wird 
der Reset-Vektor so “verbogen", daß er auf diese zeigt. Nun wird die 
Assemblerrout ine in die Variable geschrieben. Damit ist dieser Vor¬ 
gang beendet. 

Es ist vor Verlassen des Programms nötig, den Reset-Vektor wieder 
auf den ursprünglichen Zustand zu stellen. Wenn man sonst in der 
Hauptkommandozeile Reset drücken würde, erhielte man einen “EXIT 
FROM UNCALLED PROCEDURE" Fehler, der sich immer wiederholen würde. 
Man könnte nur noch den Apple aus- und wieder einschalten. 

Ein Programm, in den Reset abgefangen werden soll baut sich wie 
folgt auf. Zunächst wird der Reset'-Vektor verbogen. Nun wird das 
eigentliche Hauptprogramm als Prozedur aufgerufen. Danach kann mit 
einer Variablen festgestellt werden, ob das Hauptprogramm mit Reset 
verlassen wirde. Ist dies der Fall, so kann man weitere Prozeduren 
aufrufen. Vor Verlassen des Programms muß der Reset-Vektor wieder 
zurückgestellt werden. 

Das Hauptprogramm, das in einer Prozedur enthalten ist, setzt zu 
Beginn eine Variable auf "TRUE“. Sie wird erst in der letzten Anwei¬ 
sung wieder auf "FALSE" gesetzt. Wird zwischendrin das Hauptprogr&mm 
mit einem Reset verlassen, so ist die Variable "TRUE", was anzeigt, 
daß ein Reset vorkam. 

In dem hier angedruckten Programm steht das Hauptprogramm in der 
ersten Prozedur, und wird mit "FORWARD" erst später angegeben. Dies 
muß, wie oben beschrieben, nicht immer der Fall sein. Die Assembler¬ 
routine muß aber die richtigen Segment- und Prozedurnummern an 
"EXIT" übergeben. 


Pr og r aimia ” RESET - TEXT " 
program resetdemo; 

type byte 3 packed arrayC0..03 of 0..255; 
var reset:boolean; 

procedure hauptprogramm; 
forward} 
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procedura resetaendern; 

type routine= packed arrayCO..173 of 0..255; 

var resetroutine: Ä routine; 
x: record case boolean of 

true : (adresseiinteger); 
false: Cinhalt x^byte) 
end; 

dummy:integer; 
begin 

new(resetroutine); 

x.adresse:=-16245; < 1. Bank einschalten zura Schreiben > 

x.inhalt''C03:=0; 

x.inhalt A C03:=0; 

x.adresse;=-4; < Reset-Vektor auf 'Resetroutine' verstellen > 

x.inhalt Ä CODs=ord(resetroutine) mcd 256; 
x.adresse:=-3; 

x. inhalt''C03 :=ord (resetroutine) div 256; 

x.adresse:=-16248; < l.Bank gegen Ueberschreiben schuetzen > 

x.inhalt Ä C03:=0; 

< Resetroutine in den Speicher schreiben > 

resetroutine"C 03:=141; < STA $C088 ; 2. Bank einschalten > 
resetroutine'T 13:=136; 
resetroutine'“C 23:=192; 

resetroutine''C 33 1 =169; < LDA #$00 ; segment #1 auf Stack schieben > 

resetroutine"C 43:= 0; 

resetroutine''!! 53:= 72; < PHA > 

resetroutine^C 63:=169; < LDA #$01 > 

resetroutine"C 73;= 1; 

resetroutine''C 83:= 72; i PHA > 

resetroutine''C 93:=169; < LDA #$00 ; procedure #2 auf Stack schieben > 

resetroutine''C103:= 0; 

resetroutine''C113:= 72; < PHA > 

resetroutine''C123:=169; < LDA #$02 > 

resetroutine"C133:= 2; 

resetroutine''C143: = 72; < PHA > 

resetroutine"Cl5 3: = 76; < JMP Exit ; Exit bei $E784 > 
resetroutine"C163:=132; 
resetrcutine"C173:=231; 
end; 

procedure resetnormal; 

var x: record case boolean of 

true : (adresse:integer); 
false: (inhalt :"byte) 
end; 

dumoy:integer; 
begin 

x.adresse:=-16245; < 1. Bank zum Schreiben schalten > 

x.inhalt"C03:=0; 
x. inhalt“'C03: =0; 

x.adresse:=-4; I Reset-Vektor wieder auf $FEEF > 

x.inhalt"C03:=239; < zuruecksetzen > 

x.adresse:=-3; 
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x. inhalt' , C0U:=254; 

x.adresse:=-16248; { 1. Bank gegen Ueberschreiben > 

x.inhalt''C0!3:=0} -C schuebzen > 

end; 

procedure hauptProgramm; 
var chschar; 

begin 

if reset then 
begin 
writeln; 

writelnf'Reset-Error wurde abgefangen ?'); 
end; 

reset:=true; 
repeat 

write('Bitte eine Taste oder Reset druecken (ESC beendet)'); 
read(ch); 
until ch=chr<27); 

reset:»false; 
end; 

begin 

resetaendern; 
reset:=false; 
repeat 

hauptprogramen; 
until reset=false; 
resetnormal; 
end. 
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Das Apple-Pascal System bietet mit der "Turtlegraphics" Unit hervor¬ 
ragende Möglichkeiten zur Benutzung der Graphik. In keiner anderen 
Sprache, die es für den Apple gibt (Basic, Förth etc.) sind so 
klare, einfach zu benutzende Kommandos vorhanden. Es ist praktisch 
alles vorhanden, was man braucht und das Zusamraenfassen von Befehls- 
folgen ist durch die Möglichkeiten der Sprache Pascal sehr einfach 
und flexibel. 

Im zweiten Teil dieses Kapitels beschäftigen wir uns mit Text. In 
Apple-Pascal ist eine Textbearbeitung schon eingebaut. Der vorhan¬ 
dene Texteditor eignet sich grundsätzlich für alle Sorten vor 
Schriftstücken. Zumeist wird er nur für die Prograromeditierung be¬ 
nutzt. Er ist jedoch auch für die Erstellung von Briefen, Artikeln 
oder auch Büchern geeignet (Das Manuskript zu diesem Buch wurde 
unter POS geschrieben). Um mit ihm aus dem Apple ein ideales Text¬ 
system zu machen, fehlen allerdings noch einige Elemente der Text¬ 
verarbeitung. Die hier vorgestellten kleineren Hilfen sind jedoch 
nur ein kleiner Anriss der Möglichkeiten. Da es unter Pascal ein 
festes Datenformat für Texte gibt, ist es gut möglich, z.B. in ein 
Datenbankprogramm eine Schnittstelle zum Texteditor einzubauen. Hier 
wäre z.B. an eine sogenannte "Mailmerge"-Funktion, d.h. Serienbriefe 
zu denken. Nun jedoch zu den konkreten Verbesserungen. Wir werden 
einen kleinen Mangel des Editors beheben und die Größe eines Textes 
schnell feststellen können. 


4.1. EU x rx Graphikedi tor 

In Kapitel 2.7 wurde beschrieben, wie wir ein Bild aus hochauflösen¬ 
den Graphik abspeichern und wieder laden können. Nun ist es aber 
sehr aufwendig, für jedes Bild ein spezielles Programm zu schreiben, 
das es zunächst zeichnet und dann auf der Diskette ablegt. Was wir 
brauchen, ist ein universelles Programm, mit dem wir auf den Bild¬ 
schirm beliebig zeichnen können. Dieses Kapitel beschreibt einen 
solchen Graphikeditor. 

Wir stellen zunächst wieder unsere Wunsche an das Programm zusammen. 
Es sollte es ermöglichen, verschiedene geometrische Grundformen in 
beliebiger Größe darzustellen. Außerdem sollte auch eine Möglichkeit 
zum "Freihandzeichnen" vorhanden sein. Dann wollen wir natürlich 
alle Farben benutzen können, die die "Turtlegraphics" zur Verfügung 
stellen. Schließlich wollen wir auch noch Texte in die Graphik 
schreiben und Bilder laden und abspeichern können. Die Eingabe soll¬ 
te möglichst einfach sein. 

Fangen wir mit der Eingabe an. Hier bietet sich die Benutzung eines 
Joysticks an. Wir können so schnell an beliebige Stellen des Bild¬ 
schirms durch Hebelbewegung "fahren**. Außerdem stehen uns damit auch 
noch die zwei Buttons als praktisches Eingabemittel zur Verfügung. 
Zum Aufrufen einer Programmfunktion verwenden wir die Tastatur. 

An geometrischen Figuren brauchen wir Punkte, Linien, Kreuze, Recht¬ 
ecke, ausgefüllte Rechtecke (im Programm "Flächen" genannt), Kreise 
und gefüllte Kreise ("Scheiben"). Mit ihnen lassen sich gute Graphi¬ 
ken erzeugen. Zudem haben sie alle die Eigenschaft, daß sie nur von 
einem oder zwei Parametern abhängig sind, so z.B. das Rechteck von 
den Ecken links oben und rechts unten. Im Bild 4.4.1 sind die Formen 
und ihre Bezugspunkte zu sehen. 
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X Punkt 


/ 

/ Linie 

/ 

X 


X- 

; i 


; i 


Rechteck 


X- 

!////! Fläche (gefülltes Rechteck) 

!////» 


I X 


Kreis 


:.///: 

://///: 

•//X//! Scheibe (gefüllter Kreis) 

://///♦ 

: /// : 


TEXTABCDE Text 

X s Parameter 1 + = Parameter 2 

Bild 4.1.1: Die einzelnen Graphikelemente und ihre Bezugspunkte 


Da wir also nur einen oder zwei Punkte als Parameter benötigen, kön¬ 
nen wir die zwei Buttons am Joystick gut gebrauchen. Mit jedem Knopf 
wird ein Parameter festgelegt oder gelöscht. 

Damit ist auch schon das Gerüst für das Programm festgelegt. In ei¬ 
ner Hauptschleife wird zunächst über der Joystick ein Zeichencursor 
bewegt. Dann werden die Buttons abgefragt und eventuell die Parame¬ 
ter gesetzt oder gelöscht. Schließlich wird bei einem Tastendruck 
das entsprechende Kommando ausgeführt und die Hauptschleife beginnt 
von neuem. 

Das Abspeichern und Laden, sowie das Festlegen der Zeichenfarbe wird 
in Menüs erledigt. Dazu schalten wir in den Textmodus. Danach geht 
es wieder zurück in den Graphikmodus. 

Hinzu kommen noch vier weitere Befehle. Je einen zum Einfarben der 
ganzen Graphikseite in der Zeichenfarbe und zum Löschen. Dann kann 
dem Benutzer zur Infomation eine Kommandoübersicht ausgegeben werden 
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und das Programm beendet werden. 

Als Zeichencursor wählen wir einen Pfeil, für die Parameter ein 
geradestehendes und ein diagonales Kreuz. Sie alle werden mit der 
"DRAWBLOCK" -Prozedur 'auf den Schirm gebracht. Hierzu brauchen wir 
die "Turtlegraphics" Unit. Da wir die PADDLE und BUTTON Werte einle- 
sen müssen, kommt dazu noch die "Applestuff" Unit. Und schließlich 
benötigen wir für Kreise eine Wurzelfunktion, und damit die "Trans- 
cend" Unit. 

Das Programm gestaltet sich recht einfach. Im Initialisierungstei1 
werden die Symbole für den Cursor und die Parameter definiert, sowie 
Variablen auf Anfangswerte gebracht. 

In der Prozedur "readin" findet sich, die oben genannte Hauptschleife 
und Prozeduren für die Kommandos. Es ist sehr einfach, neue Befehle 
hinzuzufügen. Han braucht nur eine entsprechende Prozedur schreiben, 
und diese über die Tastatureingabe aufzurufen. Falls ein Joystick 
benutzt wird, der drei Buttons hat, wird es möglich, auch andere 
geometrische Formen zu verwenden, die drei Parameter benötigen. Hier 
waren Dreiecke, andere Polygone und Parallelogramme zu nennen. Man 
müßte hierzu eine dritte Parametervariable einführen und diese bei 
der Buttoneingabe berücksichtigen. 

Auch ein Befehl, der die Graphikseite auf einem Drucker ausgibt wäre 
sehr nützlich. Da diese bei fast Jedem graphikfähigen Drucker anders 
aussehen wird, wurde bei dem hier abgedruckten Programm darauf ver¬ 
zichtet . 

Wichtige Variablen 

"CURSOR","PARISHAPE","PAR2SHAPE" : Bitfelder, die das Aussehen 

der Symbole für den Cursor 
und die Parameter enthalten 

"PARI","PAR2" : Records für die Parameter. "ON" gibt an, ob das 
Parameter gesetzt ist und "X" und "Y" dessen 
Position 


"VIEWXI","VIEWX2", 

"VIEWY1","VIEWY2" : Enthalten die Werte des Bildschirmrandes. 

Der Cursor kann nicht Uber sie hinaus und 
damit aus dem Bild bewegt werden. 

"X" ( "Y" : Enthalten die Position des Cursors 

"FREIHAND" : Gibt an, ob gerade freihand gezeichnet wird 

Kommando1iste 

"P" : Punkt 
"L" : Linie 
"R" : Rechteck 
"F" t Fläche 
"K" : Kreis 
"S" : Scheibe 

"T" : Text in die Graphik schreiben 
"E" : Schirm löschen 

"H" : Schirm mit Zeichenfarbe füllen 
"C" : Zeichenfarbe setzen 
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H D“ : Dateiverwaltung (Lesen und Schreiben eines Bildes) 

"I" : Kommandoliste ausgeben 

M B" : Programm beenden 

Programm "GRAFEDIT.TEXT" 

■C$S+> 

program grafeditor; 

uses turtlegraphics,applestuff,transcend; 

type shapel = packed array CI«.7,1..73 of boolean; 

Parameter = record 

on :boolean; 
x,yiinteger; 
end; 

bild = packed arrayCO..81913 of 0..25S; 
bildvar = record case boolean of 

true: (adresse:integer); 
false:(zeigers'bild) 
end; 


var Cursor, parishape,par2shape:shapel; 
pari,par2:parameter; 
viewxl 9 viewx2,viewyl,viewy2, 
x,y:integer; 
f reihand:boolean; 


segment procedure init; 

procedure shapeCline:integer; var shpe;shapel; infsstring); 

var i:integer; 

begin 

for i:= 1 to 7 do 

if infCiDO' ' then shpeCÖ-i,line3:=true; 

end; 


begin 

initturtle; 

< Shapes erstellen > 

fillchar(parlshape,sizeof(parlshape),chr(0)); 
fiilchar(par2shape,sizeof(par2shape),chr(0)); 
fillchar(cursor,sizeof(cursor),chr(0)); 

shapeCl,parlshape,'X X'); 
shape<2,parlshape,' X X '); 
shape<3,parishape,' XX '); 
shape(4,parlshape,' '); 
shape<5,parlshape,' XX '); 
shape(6|parlshape ,* X X '); 
shape(7,parlshape,' X X'); 

shape(l,par2shape,' X '); 
shape(2,par2shape ,* X '); 
shape(3,par2shape,' X '); 
shape(4,par2shape ,* XXX XXX'); 
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shape(5,par2shape,' X 
shape(6,par2shape,' X 
shape(7,par2shape,' X* '); 

shaped ,cursor,'XXXXX 
shape(2,Cursor,'XX '); 
shape(3,Cursor,' X X '); 
shape (4, Cursor,'X X 
shape(5,Cursor,'X X '); 
shape(6,Cursor,' X '); 

shape<7,cursor,' X'); 

{ Variablen initialisieren > 

viewxls —0; 

viewx2:=278; 

viewyl:=6; 

vieuy2:=190; 

x:=140; 

y:=96; 

pari.on:=false; 
parl.x :=280; 
parl.y :=0; 
par2.on:=false; 
par2.x :=280; 
par2.y :=0; 

freihand:=false; 

end; 

procedure home; < loescht Bildschirm > 
begin 

write(chr<12)>; 
endj 

procedure bell; < gibt akustisches Zeichen > 
begin 

write(chr(7)); 
end; 

procedure readin; 
var dummy,padO,padl:integer; 
finis:boolean; 
chschar; 

pcolsscreencolor; 

procedure draweursor; < bringt Zeichencursor auf den Bildschirm > 
begin 

drawblock(cursor,2,0,0,7,7,x,y-6,6); 
end; 

procedure xdrawpars; < loescht Parameter auf dem Bildschirm > 
begin 

draweursor; 

if parl.on then drawblockfparlshape,2,0,0,7,7,parl.x-3,pari.y-3,6); 
if par2.on then drawblock(par2shape,2,0,0,7,7,par2.x-3,par2.y“3,6); 
end; 

procedure plot(x,y:integer); < setzt einen Punkt > 
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begin 

pencolor(none); 

J moveto(x,y); 

turnto(O); 

pencolor(pcol); 

move(O); 

end; 

procedure punkt; < Kommando 'P' > 

var dotsboolean; 

begin 

if parl.on and (not par2.on) 
then begin 

xdravpars; 

plotCparl.x,pari .y) ; 
pari,on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure linie; < zieht eine Linie auf dem Bildschirm > 
begin 

if parl.on and par2.on 
then begin 

xdrawpars; 
pencolor(none); 
moveto(pari.x,pari.y); 
pencolorCpcol); 
moveto(par2.x,par2.y); 
pari.ons=false; 
par2.on: s =false; 
drawcursor; 
end 

eise bell; 

end; 

procedure kreuz; { zeichnet ein Kreuz auf dem Bildschirm > 

var dx,dy:integer; 

begin 

if parl.on and par2.on 
then begin 

xdrawpars; 
dx:=par2.x-parl.x; 
dy:~par2.y-parl,y; 
pencolor(none); 
moveto(pari.x+d x,pari.y+dy); 
pencolor(pcol); 
moveto(pari.x-dx,pari.y-dy); 
pencolor(none); 
moveto(pari.x+dy,pari.y+dx); 
pencolor(pcol); 
moveto(pari.x-dy , pari.y-d x); 
pari.on:=false; 
par2.on:«false; 
drawcursor; 
end 

eise bell; 

end; 

procedure rechteck; -C zeichnet ein Rechteck auf dem Bildschirm > 
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writeln('V Verlassen'); 
writeln; 

write(' Bitte auswaehlens '); 
repeat 
read<ch); 

until ch in C'L'/l'/A'/a'.'V'/v']} 
writeln; 

if not (ch in C'V'/v'D) then 
begin 
writeln; 

write('Filename j '); 
readln(name); 
pari.ont=false; 
par2.on:=false; 
end; 

fehlers°false; 

if ch in C'L','1'3 then piKload(na(Re,fehler); 

if ch in C'A','a'3 then pixsaveCname,fehler); 

if fehler then writeln(chr(13)/Diskettenfehler *'); 

write(chr(13),'Bitte eine Taste druecken '); 

read(ch); 

drawcursor; 

grafmode; 

Home; 

end; 

procedure info; < gibt Kommanmdoliste aus > 

var ch:char; 

begin 

textmode; 

writelnC'Info ueber die Tastaturkommandos'); 

writelnC'-'); 

writeln; 

writelnC'P Punkt'); 
writeln('L Linie'); 
writeln('G Kreuz'); 
writeln('R Recheck'); 
writeln('F Flaeche'); 
writeln('K Kreis'); 
writelnC'S Scheibe'); 
writeln('T Text eingeben'); 
writelnC'M Malen'); 
writeln; 

writelnC'H ganzen Schirm einfaerben'); 
writelnC'E ganzen Schirm loeschen'); 
writelnC'C Zeichenfarbe setzen'); 
writeln; 

writelnC'D OateiVerwaltung'); 
writelnC'I Info'); 
writeln; 

writelnC'B Beenden'); 
writeln; 

writeC'Bitte eine Taste druecken '); 
read(ch); 
grafmode; 
home; 
end; 

begin 

pcols=whitel; 
finiss»false; 
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drawblock(Cursor,2,0,0,7|7,x,y-6 t 6); 
repeat 

< Paddle-Eingabe > 
padü*=paddle(0); 

for dummy*=l to 3 do; 
padl*=paddle(l); 

if (pad0>160) or (pad0<94) or (padl>160) or Cpadl<94) then 
begin 

drawcursor; 

x:**x + trunc( (padO-127) / 33); 
y:=y - trunc( (padl-127) / 33); 
if x<viewxl then x:-viewxl; 
if x>viewx2 then x:~viewx2; 
if y<viewyl then y:=*viewyl; 
if y>viewy2 then y:=viewy2; 
if freihand then plot(x,y); 
drawcursor; 
end; 

< Button-Eingabe } 
if button(O) then 

if pari.an 
then begin 

drawblockCparlshape^iOfO^^fparl .x~3,parl ,y-3 f 6); 
pari.on:»false; 
end 

eise begin 

drawblock(parishape,2,0,0,7,7,x-3,y-3,6); 
pari .om^true; 
parl.x :=x; 
pari.y :=y; 
end; 

if button(l) then 
if par2.on 
then begin 

drawblock(par2shape,2 l 0 l 0,7,7 1 par2.x-3,par2.y-3 1 6); 
par2.on:=falsej 
end 

eise begin 

drawblock(par2shape,2 l 0,0 1 7,7 t x-3,y-3,6); 
par2.on*=true; 
par2.x :»x; 
par2.y :=y; 
end; 

< Tastatur-Eingabe > 
if keypress then 

begin 

read(keyboard,ch); 


case ch of 
'P\'P'* 

punkt; 

'L' ■ 

,'l': 

linie; 

'GVg'* 

kreuz; 

'R' ,'r' : 

rechteck; 

'F', 


flaeche; 

'K','k' : 

kreis; 

'S', 

.'s': 

scheibe; 

'T'.'t'S 

text_eingabe; 


freihand*»not freihand; 

'HVh # s 

schirm_fuellen; 

'E','e # s 

schiro_1oeschen; 

'C', 

, # c': 

color_setzen; 

'D' f 'd' s 

datei; 
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'1','i'r info; 

finis:=true 

end; 
end; 

until finis; 
end; 

begin 
homej 
init; 
readin; 
end. 


Abschießend noch etwas zur Benutzung. Gute Effekte kann man vor al¬ 
lem durch die Farbe “reverse" erzielen. Damit sehen Flächen und 
Scheiben, die über andere Formen gehen sehr interessant aus. Schau¬ 
bilder kann man einfach erstellen durch Linien, Rechtecke, Kreise 
und entsprechenden Beschriftungen. 


4.2 SYSTEM . CHARSET w ± r~ ci &dL± t. ± o r- t 

Mit der “Turtlegraphics“ Unit kann man mit den Prozeduren "WCHAR" 
und "WSTRING" Textzeichen in eine Graphik schreiben. Die dazu nöti¬ 
gen Zeichendefinitionen stehen in dem File "SYSTEM.CHARSET". Leider 
wird bei Apple-Pascal kein Dienstprogramm mitgeliefert, mit dem man 
das Aussehen der Zeichen verändern kann. Dies müßte jedoch relativ 
einfach sein, da man ‘‘SYSTEM.CHARSET“ als Datenfile ansprechen kann. 

Jedes Zeichen wird aus 56 Punkten zusammengesetzt. Seine Hohe 
beträgt acht Zeilen und seine Breite sieben Punkte. Demnach besteht 
jede Zeichendefinition aus acht Bytes, wobei jedes Byte das Aussehen 
der jeweiligen Zeile innerhalb des Zeichens bestimmt. Innerhalb 
eines Bytes gibt jedes Bit an, ob ein Punkt gesetzt wird, oder 
nicht. Da die Zeichen nur sieben Punkte breit sind, wird das achte 
Bit (b7) nicht benutzt. Wären z.B. alle acht Bytes eines Zeichens 
mit dem Wert 127 gefüllt, so ergäbe dies ein weißes Rechteck. Dies 
ist der Fall beim Zeichen 127. Das Zeichen 32 (Leerzeichen) besteht 
logischerweise aus achtmal dem Wert 0. 

Da in "SYSTEM.CHARSET" die Definitionen für 126 Zeichen enthalten 
sind, kann man sie in ein Feld einiesen, das 126 Elemente hat. Jedes 
einzelne Element besteht wiederum aus 6 Bytes. Um Platz zu sparen, 
handelt es sich um ein gepacktes Feld, wie im “Apple Pascal Lang- 
uage“ Handbuch auf den Seiten 99 - 100 beschrieben. 

Das Dienstprogramm, das hier beschrieben wird, gestaltet sich ein¬ 
fach. Zunächst werden die Zeichendefinitionen aus "SYSTEM.CHARSET" 
oder einem anderen Zeichensatz-File eingelesen. Dann kann der Be¬ 
nutzer ein Zeichen auswählen, und in diesem jeden Punkt setzen oder 
löschen. Zum Schluß wird der Zeichensatz wieder unter einem beliebi¬ 
gen Namen auf der Diskette abgespeichert. 

Zu Beginn des Programms wird das Aussehen des Bildschirms mit der 
Prozedur “INIT" gestaltet. Es werden zwei Felder aufgebaut. Eins, um 
die 128 Zeichen darzustellen und ein Gitter für die vergrößerte Dar¬ 
stellung eines Zeichens. 

Dann wird die Prozedur "READINCHARS“ aufgerufen. Sie fragt den Be-* 
nutzer nach dem Namen des zu ladenden Zeichensatzes und liest in 
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ein. Die Eingabe des Filenaraens erfordert eine eigene Prozedur. Da 
wir uns im Graphikmodus befinden, würde bei einem "READLN"-Kommando 
keine Rückmeldung auf dem Bildschirm erfolgen. Also brauchen wir die 
Prozedur "READFI LEINAME" . Sie liest ein Zeichen ein und gibt es in 
der Graphik aus. Weiterhin wird die “Backspace“ Taste (Pfeil links) 
zum Löschen des letzten Zeichens benutzt. Mit <ret> wird die Eingabe 
abgeschlossen. Nachdem der Zeichensatz eingelesen wurde, gibt "READ- 
INCHARS" ihn auf dem Schirm aus. 

Darauf folgt die zentrale Prozedur des Programms, "EIDIT". Der Be¬ 
nutzer kann einen blinkenden Cursor in dem Zeichensatz bewegen. Dazu 
werden die Tasten " I " , "M" , “ J“ und "K" benutzt. Befindet sich der 
Cursor über dem gewünschten Zeichen, so kann es durch <ret> editiert 
werden. Wird "F" eingegeben, wird die Prozedur beendet. 

Das Elditieren eines einzelnen Zeichens geschieht in der Prozedur 
" EID I TONE “. Eine Zeichendefinition besteht, wie oben beschrieben, aus 
acht Bytes. Da wir- beim Zeicheneditieren jedoch einzelne Punkte 
setzen bzw. löschen wollen, rechnen wir die betreffende Zeichendefi¬ 
nition in ein Boolean-Feld um. Damit können wir jeden Punkt einfach 
ansprechen. 

Wir stellen dann das Zeichen vergrößert dar, wobei jeder einzelne 
Punkt in dem Zeichen ein Rechteck von 15 X 12 Punkten auf dem Bild¬ 
schirm einnimmt. Nun wird ein zweiter Cursor sichtbar, der wieder 
mit den Tasten " I ", "M", "J“ und “K" bewegt werden kann. 

Mit der Leertaste <<spc>) kann der Benutzer den Punkt, über dem der 
Cursor gerade steht, "umdrehen". D.h., ein weißer Punkt wird 
schwarz, und ein schwarzer weiß. Mit dem Kommando "R" kann man das 
gesamte Zeichen invertieren. Falls ein Zeichen völlig neu gestaltet 
werden soll, kann es mit "L" gelöscht werden. Mit der Eingabe von 
<ret> wird die Editierung abgeschlossen, und man kann ein anderes 
Zeichen auswählen. 

Wenn "EIDIT" mit "F" abgeschlossen wurde, wird der Zeichensatz mit 
"WRITEOUTCHARS" wieder unter einem beliebigen Namen auf die Diskette 
geschrieben, und das Programm ist beendet. 

Wird der Zeichensatz spater in "SYSTEM.CHARSET" umbenannt, so ver¬ 
wenden die “Turtlegraphics" ihn anstandslos. Der Leser sollte dies 
ausprobieren, indem er einen neuen Zeichensatz gestaltet, und dann 
das Programm aus Kapitel 4.1 startet. Er kann nun die erzeugten Gra¬ 
phiken mit seinem individuellen Zeichensatz beschriften. 

Wichtige Typen und Variablen 

"CHARFIELD“ : Typ, der der Struktur eines Zeichensatzes 
entspricht. 

"CHARS" : Variable, die den zu editierenden 
Zeichensatz aufnimmt. 

"CHARFILE" : File zum Einlesen und Schreiben des 
Zeichensatzes. 

"ONECHAR“ : Booleanfeld aus der Prozedur "EDITONE", 

das das Aussehen eines Zeichens aufnimmt. 
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Kommandoliste 

"I" : bewegt Cursor nach oben 
"M" : bewegt Cursor nach unten 
M K" : bewegt Cursor nach rechts 
M J" : bewegt Cursor nach links 

<ret>: ein Zeichen editieren 

dann; " I** f **H M , ”K" , *' J" ; Cursorbewegungen wie oben 
<spc> ; invertiert einen Punkt 
"R" ; invertiert das ganze 

Zeichen 

M L" : löscht das ganze Zeichen 
<ret> : beendet 

"F" ; Beendet Editierung 


Progr sc in in •• CHARED I T - " 

<$S+> 

program charedit; 

uses turtlegraphics,applestuff; 

type 

charfield B packed arrayCO..127,0..73 of Q..255; 
var 

chars: charfield; 
charfile: file of charfield; 

procedure init; < legt Bildschirmlayout fest > 

var i;integer; 

begin 

initturtle; 
pencolor(none); 
for i := 0 to 8 do 
begin 

< horizontal > 
pencolor(none); 
moveto(0,191-i#16); 
pencolor(green); 
moveto(98,191-1*16); 

{ vertikal > 
if i<8 then 
begin 

pencolor(none); 
moveto(i*14,191); 
pencolor(green); 
moveto(i*l4,63); 
end; 


end; 

pencolor(none); 
moveto(130,191); 
pencolor(white); 
moveto(278,191); 
pencolor(whitel); 
moveto(278,115); 
pencolor(white); 
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moveto(130(115); 
pencolor(whitel); 
movetoCI30,191); 

end; 

procedure read_filename(var inp:string); < liest einen Filenamen von der > 
var ret:boolean; < Tastatur ein, und bestaetigt jeden Buchstaben auf dem > 
c:char; < Bildschirm > 

begin 
inp:=' # ; 
pencolor(none); 
moveto(0,0); 

wstring('Zeichensatz?'); 

ret: s false; 

repeat 

raoveto(90+length(inp)*7,0)j 

wchar('_'); 

repeat 

until keypress; 
read(c); 

if eoln then reti=true 
eise if c=chr(8) then 

if length(inp)>0 
then begin 

moveto(90+length(inp)*7,0); 
wchar(' '); 

inp:»copy(inp,l,length(inp)-l); 
end 

eise write(chr(7)) 

eise begin 

moveto(90+length(inp)*7,0); 
wchar(c); 

inpi°concat(inp,' '); 
inpClength(inp)3:=c; 
end; 

if ret then if length(inp)**0 then 
begin 

write(chr(7)); 
ret:-false; 
end; 

until ret; 

moveto(90+1ength(inp)*7,0); 
wchar(' # ); 
readln; 
end; 

procedure readin_chars; { liest Zeichensatz von der Diskette ein > 
var namesstring; 
i,jsinteger; 

begin 

read_filenameCname); 
resetCcharfile,name); 
getCcharfile); 
chars i =charfi le*; 
closeCcharfile); 
moveto(0,0); 

wstring(' ' > ? 

for i;=0 to 7 do 
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for j:=0 to 15 da 

drawblock<charsCi*16+j:i,l ,0,Q,7,8,134+j*9, 181-i*9,10); 

end; 


procedure edit; < laesst den Benutzer den Zeichensatz editieren > 
var setx,sety:integer; 
ed,quit:boolean; 
chschar; 

Cursor: packed arrayCO..7,0..63 of boolean; 
cursoron s boo1ean; 
timer:integer; 


procedure editone(charno:integer); -C laesst den Benutzer ein Zeichen > 
var shapespacked arrayCl..15,1•.123 of boolean; { editieren > 

onechar: packed array CO..7,0..63 of boolean; 
i,j:integer; 
x,y:integer; 
byte,psinteger; 
quit:boolean; 
chschar; 

procedure giveout; < gibt ein Zeichen vergroessert aus ) 

var xcnt,ycnt:integer; 

begin 

for ycnt:= 0 to 7 do 
for xcnt:=0 to 6 do 
if onecharCycnt,xcnt3 

then drawblcck(shape,2,0,0,12,15,2+xcnt*l4,64+ycnt*16,15) 
eise drawblock(shape,2,0,0,12,15,2+xcnt*14,64+ycnt*16, 0); 

end; 

begin 

for i:= 0 to 7 do 
begin 

byte:»charsCcharno,i3; 
byte:=byte mod 12fl; 
p;=64; 

for j:= 0 to 6 do 
begin 

if byte div p = 1 

then onecharCi,6-j3:=true 
eise onecharCi,6-j3:=false; 
bytes=byte mod p; 
p:=p div 2; 
end; 

end; 

giveout; 


raoveto(0,40); 
wstringC'I,M,K,J 
(noveto(0,30); 
wstringC' <spc> 
moveto(0,20); 
wstring(' R 

moveto(0,10); 
wstring(' L 
moveto(0,0); 
wstring(' <ret> 


bewegen den Cursor '); 
invertiert einen Punkt '); 
invertiert das Zeichen '); 
loescht das Zeichen '); 
beendet Zeicheneditierung'); 
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x:= 0 ; 

y:=ü; 

quits=false; 
chartype< 6 ); 
moveto(4+x*14,67+y*16); 
wchar(chr<127 ))5 
repeat 
repeat 

until keypress; 
read(ch); 

moveto(4+x*l4,67+y*l6 >; 
wchar(chr<127)); 
case ch of 

'i','I's begin 

y:=y+l; 

if y>7 then y:=0; 
end; 

'<n', 'M' i begin 

y:=y-l; 

if y<0 then y:=7; 
end; 

'k'/K': begin 

x:=x+l; 

if x >6 then x:= 0 ; 
end; 

: begin 

x:=x-l; 

if x <0 then x:= 6 ; 
end; 

' ': begin . 

if not eoln then 
begin 

onecharCy,x3;=not onecharCy,x3§ 
if onecharCy,x3 

then drawblack(5hape,2,0,0,12,15,2+x#14 t 64+y#16,15) 
eise drawblock(shape,2,0,0,12,15,2+x*14,64+y*16, 0); 

end; 

end; 

'r'j'R': begin 

for i:=0 to 7 do 
for j :=0 to 6 do 

onecharCi, j3:=*not onecharCi, jD? 
giveout; 
end; 
begin 

fillchar(onechar,sizeof Conechar),chr(0)); 
giveout; 
end 

end; 

if eoln then begin 

readln; 

quit:=true; 

moveto(4+x*14,67+y*16); 
uchar(chr(127)); 
end; 

moveto(4+x*14,67+y*16); 
wchar(chr(127)>; 
until quit; 

for i:= 0 to 7 do 
begin 
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byte:=0; 

p;*64; 

for j:= 0 to 6 do 
begin 

if onecharCi,6-jU then byte:°byte+p; 
p:=p div 2; 
end; 

charsCcharno, il :=byte; 
end; 

fillchar(onechar,sizeof(onechar),chr(0)); 
giveout; 
end; 


begin 
setx:=d; 
sety:=1; 

fillchar(cursor } sizeof(Cursor),chr(255)); 

drawblock(Cursor,!,0,0,7,8,125+setx*9,190-sety*9,6); 


repeat 

chartype(lO); 
cnoveto(0,40); 
wstring(' 
<noveto(0,30); 
wstring(' 
moveto(0,20); 
wstring('1,M,K,J 
®oveto(0,10); 
wstringf' <ret> 
moveto(0,0); 
wstring(' F 
quit:=falsej 
repeat 


'>? 

bewegen den Cursor '); 
waehlt ein Zeichen aus"); 
beendet die Editierung '); 


cursoron:=true; 
ti(ner;=300; 


repeat -C wartet auf Tastendruck und gibt blinkenden Cursor aus > 
timers=ti(ner-l; 
if timer=0 then 
begin 

timer*«30D; 

drawblock(Cursor,1,0,0,7,8,125+setx*9,190-sety*9,6); 
cursoron:«not cursoron; 
end; 

until keypress; 
if not cursoron then 

drawblock(Cursor,1,0,0,7,8,125+setx#9,190-sety#9,6); 
read(ch); 

if ch in C'iVIVnVMVkVK','JVJ'3 then 
begin 

drawblock(Cursor,1,0,0,7,8,125+setx#9,190-sety*9,6); 
case ch of 

'i\'I'sbegin 

sety:=sety-l; 
if sety<l then sety:«8; 
end; 

, 'M' sbegin 
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setys=sety+l; 
if sety>8 then sety;=l; 
end; . 

* k # ,'K'sbegin 

setx:=setx+l; 
if setx>16 then setx:=l; 
end; 

1 j','J'sbegin 

setx:=setx-l; 
if setx<l then setx:»16; 
end 

end; 

d rawb1ock<Cursor f l,0,0f7,8,l25+setx*9,190-sety#9, 6); 
end; 

if ch in C'f'/F'D then begin 

quit:=true; 

eds=false; 

end; 

if eoln then begin 

read ln; 
quit:=true; 
ed:=true; 
end; 

until quit; 
if ed then begin 

editone< Csety-1)*16+<setx-D); 

drawblock(Cursor,1,0,0 9 7,8,125+setx*9,190-sety*9 9 6); 
drawblock(charsC(sety-1>*16+(setx-l)3, 

1,0 l 0,7 l 8 f 125+setx#9 l 190~sety#9 l 10); 
drawbl ock (Cursor ,1 9 0 9 0 9 7 9 8 9 1 25+setx#9 9 190-sety*9, 6); 
end; 

until ed=false; 

drawblock(cursor,1,0,0,7,8,125+setx#9,190-sety#9,6); 
end; 

procedure writeout_chars; < schreibt Zeichensatz auf Diskette > 

var namesstring; 

begin 

moveto(0,20); 

wstring(' '); 

moveto(0,10); 

wstringC' ')? 

moveto<0 9 0); 

wstring(' '>; 

read„f i 1 enatne (name); 

rewriteCcharfile,name); 
charfi1e":»chars; 
put(charfile); 
claseCcharfile,lock); 

end; 

begin 

init; 

readin_chars; 

edit; 

writeout_chars; 
write(chr<12>); 
end. 
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*4.-3 W ± ö s cd nicht Lor ©s-Graphik ? 

Apple-Pascal kennt mit der "Turt1egraphics" Unit nur die hochauflö¬ 
sende Graphik mit 8 Farben, wie unter Basic. Applesoft kennt aber 
auch die Blockgraphik (Lores-Graphik) mit 16 Farben. Da diese in 
Basic möglich ist, müsste es sie eigentlich auch in Pascal geben. 
Wir wollen uns eine Unit schreiben, mit der wir Zugriff auf die 
Blockgraphik erhalten. 

Um die Informationen zu bekommen, wie die Blockgraphik angesteuert 
wird, brauchen wir das "Apple II Reference Manual", das mit jedem 
Apple ausgeliefert wird. Angaben über die Loresgraphik finden wir 
auf den Seiten 17, 18 und 130. 

Die Loresgraphik wird eingeschaltet, indem die Speicherstellen 
16304 und - 16298 angesprochen werden. Die erste schaltet bei An¬ 
sprache in den Graphikmodus und die zweite schaltet auf Blockgra¬ 
phik. Der Speicherbereich, der angibt, was in der Graphik zu sehen 
ist, liegt parallel zur Bildschirmseite, die bei Speicherstelle 1024 
beginnt. Anstatt eine Zeichens werden jedoch zwei Punkte angezeigt. 
Ihre Farben hängen von Inhalt der jeweiligen Speicherstelle ab. In 
jedem Byte des Speicherbereiches sind also die Farben für zwei Punk¬ 
te in der Loresgraphik enthalten. Da ein Byte 256 Werte annehmen 
kann, gibt es für jeden Punkt in der Blockgraphik 16 Farben, da ein 
halbes Byte (mit 4 Bits) 2 hoch 4 = 16 Werte annehmen kann. Ein 
halbes Byte wird Nibble genannt. 

In Textmodus können 24 Zeile zu je 40 Zeichen dargestellt werden. Da 
in der Blockgraphik jedes Zeichen zwei übereinander 1iegende Punkte 
ergibt, beträgt die Auflösung 40 # 48 Punkte. Es bleibt nur noch 
offen, welches Nibble in einer Speicherstelle des Bildschirmspei¬ 
chers welchen Punkt beeinflußt. Das erste Nibble (Bits 0-3) gibt die 
Farbe für den oberen Punkt und das zweite (Bits 4-7) die des unteren 
an. 


Textmodus ! Blockgraphik 


! * ! 

! * * ! 

» * * ! 

■ ***** ! 
!* *! 

! * * ! 
i ! 

+ - + 

1 Zeichen 


!b!b!b!b!b'b!b!b! 
+-+ 


+-+ 

!/////! 
!/////! A 
!/////! 
!/////! 

I 3 3 3 3 S I 

!=====! ß 

i====={ 

+-+ 

2 Punkte 


.»b ! b ! b ! b » b ! b ! b ! b ! 


7 0 

Ganzes Byte be¬ 
stimmt Zeichen 


• Bits 7-4 bestimmen 

* Farbe für Punkt A, 

! Bits 3-0 für Punkt B 


Bild 4.3.1: Darstellung eines Punktes in der Lores-Graphik 
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Mit den PEEK und POKE Prozeduren aus Kapitel 3.1 sollte es uns nun 
möglich sein, Punkte in der Blockgraphik zu setzen. 

Um den Bildschirmspeicher einfacher ansprechen zu können, wenden wir 
den Trick an, den wir auch schon in Kapitel 2.7 benutzt hatten. Wir 
nehmen ein Feld mit der Große von 1024 Bytes (dies entspricht der 
Größe des Bildschirms) und legen es über den Bildschirmspeicher. 
Diesen Trick hatten wir schon angewandt, um die Hires-Seite in eine 
Variable zu fassen. Dadurch können wir einzelne Punkte schneller 
durch einen Feldindex ansprechen und brauchen nur noch die POKE- 
Prozedur, um zwischen Graphik- und Textmodus hin und her zu schal¬ 
ten. Unser Feld nennen wir logischerweise "SCREEN". 

Bei den Prozeduren halten wir uns einfach an die Basic Befehle, da 
sie alle nötigen Funktionen erfüllen. Neu hinzu kommt nur die Proze¬ 
dur "F1LL". 

Nun zu den Befehlen im einzelnen. 

"FILL (COLOR)" färbt die Graphikseite in der Farbe "COLOR" ein. "CO- 
LOR" sollte nur von 0 bis 15 gehen. Die sich ergebenden Farben sind 
beim "PLOT”-Befeh1 angegeben. Wir benutzen hier einfach die Prozedur 
"FILLCHAR“, die eine Variable mit einem Wert füllt; hier das Feld 
•■SCREEN*'. 

"GR“ schaltet den Blockgraphik-Modus ein. Wir POKEen dazu in die 
oben angegeben Speicherstellen und färben den Bildschirm mit "FILL" 
schwarz. 

"TEXT" schaltet zurück in den Textmodus. Dazu muß die Speicherstelle 
- 16303 angesprochen werden. Damit der Bildschirm nicht mit unsinni¬ 
gen Zeichen gefüllt ist, löschen wir ihn. 

"COLORCC)" setzt die Farbe, in der die folgenden Plotbefehle ausge- 
führt werden sollen. "C" sollte zwischen 0 und 15 liegen, wobei die 
Werte die folgenden Farben ergeben: 


0 : 

schwarz 

1 : 

magenta 

2 : 

dunkelblau 

3: 

rot 

4: 

dunkelgrün 

5: 

grau 

6 : 

blau 

7: 

heilblau 

8 : 

braun 

9: 

orange 

10 : 

grau 

11 : 

rosa 

12 : 

grün 

13: 

gelb 

14: 

türkis 

15: 

weiß 


Damit wir uns späteren Rechenaufwand sparen, setzen wir gleich die 
Variablen "COLORN" und "COLORM” auf die Werte, die für den oberen 
und den unteren Punkt in einer Spei eherstelle gebraucht werden. 

M PLOT <X,Y)" setzt einen Punkt mit den Koordinaten X und Y in der 
vorher festgelegten Zeichenfarbe. Wir berechnen mit einer kompli¬ 
zierten Formel die Variable "LOC", die den Index für das Feld 
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"SCREEN" ergibt. Diese Formel ist deshalb so lang, da der Bild¬ 
schirmaufbau beim Apple äußerst umständlich ist. Wir schauen noch, 
um welchen Punkt es sich handelt und setzen das entsprechende 
Nibble. 

"HLIN (X1,X2,Y)" zeichnet eine waagerechte Linie von XI bis X2 auf 
der Höhe Y. Es. handelt sich um eine einfache Schleife mit dem 
"PLOT"-Befehl. 

M VLIN (Y1,Y2,X)" zeichnet eine senkrechte Linie von Y1 bis Y2 in der 
Spalte X. Es handelt sich hier wiederum um eine simple Schleife. 

"SCRN (X,Y)" ist eine Funktion, die angibt, welche Farbe der Punkt 
mit den Koordinaten X und Y hat. Das Ergebnis ist eine Zahl zwischen 
0 und 15. 

Es ist zu beachten, daß nicht geprüft wird, ob die angegeben Koordi¬ 
naten für die Prozeduren innerhalb des Bildschirms liegen. X Koordi¬ 
naten dürfen nur von 0 bis 39 und Y-Koordnaten nur von 0 bis 47 
gehen. 

Nun zum Aufbau der Unit. Auf die im " I NTEFcFACE" -Te i 1 angebenen Typen 
und Prozeduren kann man von “außen" zugreifen. Dem Programm, das die 
Unit benutzt, stehen also die Blockgraphik-Prozeduren und der Typ 
"BYTE" zur Verfügung. Alles, was im "IMPLEMENTATION M -Tei1, steht ist 
intern und kann nicht direkt angesprochen werden. So z.B die Proze¬ 
dur POKE. Der Teil am Ende der Unit zwischen "BEGIN" und "END." ist 
der Initialisierungsteil. Er wird beim Programmstart automatisch 
ausgeführt und legt das H SCREEN"-Feld über den Bildschirmspeicher. 

Wichtige Typen und Variablen 

"SPCHRINHALT“,"SPCHRSTELLE“ : Aus Kapitel 3.1 von 

PEEK/POKE übernommen 

"SCREENARRA'Y" : 1024 Bytes großes Feld. Die Größe 

entspricht der des Bildschirmspeichers 

"SCREENTYP" : Mittels des Zeigers "AD" kann eine Variable 
von diesem Typ über einen 

bestimmten Speicherbereich gelegt werden. 

"COLORN","COLORM" : enthalten den Wert, den nötig ist, 

um den oberen oder den unteren Punkt 
in einer Bildschirmzelle in der 
gewünschten Farbe zu setzen. 

"SCREEN" : Variable vom Typ "SCREENTYP". Wird über den 
Bildschirmspeicher gelegt. 
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Programm "LORES.LIB" 

<*$S+*> (# SWAPPING OPTION FUER UNITS *> 

UNIT LORESj 


INTERFACE <* ALLE IDENTIFIER, AUF DIE VOM 
HOST-PROGRAMM BENUTZT WERDEN 
KOENNEN *> 


TYPE 

BYTE = 0..255; 

PROCEDURE FILL <C0L0R:BYTE>; 
PROCEDURE GR; 

PROCEDURE TEXT; 

PROCEDURE COLOR (C:BYTE>; 
PROCEDURE PLOT (X.Y;BYTE); 
PROCEDURE HLIN (XI,X2,Y:BYTE) 
PROCEDURE VLIN (Y1,Y2,X;BYTE) 
FUNCTION SCRN (X.YiBYTE) :BYTE 


IMPLEMENTATION (# ALLE IDENTIFIER UND DER TEXT 
DER UNIT. DIESER TEIL IST 
“PRIVAT”. D.H. ER KANN NICHT 
VOM HOST-PROGRAMM AUFGERUFEN 
WERDEN #) 


TYPE 

SPCHRINHALT * PACKED ARRAYCO..03 OF BYTE; 
SPCHRSTELLE » RECORD CASE BOOLEAN OF 

TRUE: (ADRESSE:INTEGER); 
FALSE:(INHALT :^SPCHRINHALT); 
END; 

SCREENARRAY = PACKED ARRAYC0..10233 OF BYTE; 
SCREENTYP. = RECORD CASE BOOLEAN OF 
TRUE; (AD; INTEGER); 

FALSE:(INH; Ä SCREENARRAY); 

END; 


VAR 

COLORN,COLORM;BYTE; 
SCREEN;SCREENTYP; 


PROCEDURE POKE(A;INTEGER; B:BYTE); C aus Kapitel 3.1 
VAR X;SPCHRSTELLE; 

BEGIN 

X.ADRESSE:=A; 

X. INHALT“*C 0 3 : S B; 

END; 

PROCEDURE FILL; ( fuel'lt Schirm in der Zeichenfarbe 
BEGIN 

FILLCHAR(SCREEN.INH'\ 1023,(COLOR MOD 16)#17>; 

END; 

PROCEDURE GR; ( schaltet in den Grafikmodus ) 

BEGIN 

POKE(-16304,0); (# GRAPHICS *) 
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POKE<-16298, 0) ; <* LORES *) 

FILL(O); 

END; 

PROCEDÜRE TEXT; { schaltet in den Textmodus 3 
BEGIN 

POKE(-16303,0); <# TEXT #> 

WRITE(CHRC12)); 

END; 

PROCEDÜRE COLOR; { setzt Zeichenfarbe ) 

BEGIN 

COLORN:=C MOD 16; 

COLORM:=C # 16; 

END; 

PROCEDÜRE PLOT; ( setzt eine Punkt in der Zeichenfarbe ) 

VAR LOC.Yl.B:INTEGER; 

BEGIN 

Yl:= Y DIV 2; 

LOC := (Y1 DIV 8) * 40 + (Y1 - 6 # <Y1 DIV 8)) # 128 + X; 

B:=SCREEN.INH~CLOC3; 

CASE ODD(Y) OF 

FALSE : B s *» (B DIV 16) * 16 + COLORN; 

TRÜE : B := (B MOD 16) + COLORM 
END; 

SCREEN.INH'"' CLOC3:=B; 

END; 

PROCEDÜRE HLIN; C zieht eine waagerechte Linie in der Zeichenfarbe ) 
VAR X:INTEGER; 

BEGIN 

IF XI <= X2 THEN 

FOR X := XI TO X2 DO 
PLOTCX,Y) 

ELSE 

FOR X XI DOWNTO X2 DO 
PLOT(X, Y >; 

END; 

PROCEDÜRE VLIN; < zieht eine senkrechte Linie in der Zeichenfarbe ) 
VAR Y:INTEGER; 

BEGIN 

IF Y1 <= Y2 THEN 

FOR Y := Y1 TO Y2 DO 
PLOT(X,Y) 

ELSE 

FOR Y := Y1 DOWNTO Y2 DO 
PLOT C X,Y); 

END; 

FUNCTION SCRN; ( ergibt Farbe eines Punktes ) 

VAR LOC,Y1,B:INTEGER; 

BEGIN 

Y1:= Y DIV 2; 

LOC := (Y1 DIV 8) # 40 + <Y1 - 0 MY1 DIV 8)) * 128 + X; 
B:=SCREEN.INH~CLOC3; 

CASE ODDCY) OF 

FALSE ; SCRN B MOD 16; 

TRÜE : SCRN := B DIV 16 
END; 
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END; 

<* INITIALISATION #) 

BEGIN 

SCREEN.AD: = 10 2 4 ; (# BEGINN DES BILDSCHIRMSPEICHERS *) 
END. 


Die Unit soll in dieser Form nicht in die "SYSTEM.LIBRARY" eingebun¬ 
den werden. Jedes Programm, das sie benutzt, muß zu Beginn dem Com¬ 
piler raitteilen, daß die Unit aus einem anderen File stammt. Dies 
geschieht mit der "(#SU Fi len&me*> ** Option. Darauf folgt die Angabe 
"USES LORES;". 

Nach dem Compileren muß die Unit noch in das Codefile mit dem Linker 
eingebunden werden. Nach dem Aufruf des Linkers mit "L" von der, 
Hauptkommandozeile ergibt sich der folgende Dialog: 


LINKING... 

APPLE PASCAL LINKER CI.13 
HOST FILE? <ret> 

OPENING SYSTEM.WRK.CODE 
LIB FILE? LORES.LIB 
OPENING LORES.LIB.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING LORESDEM 
READING LORES 
OUTPUT FILE? <ret> 

LINKING LORES H 7 
LINKING LORESDEM tt 1 

Bild 4.3.2: Der Dialog beim Linkerlauf 


Der Linker muß hier .übrigens einzeln aufgerufen werden. Falls er 
über das "R" <Run) Kommando nach dem Compilieren gestartet wird, ist 
es nicht möglich, die Unit einzubinden. Dies liegt daran, daß der 
Linker dann annimmt, daß die Unit in der "SYSTEM.LIBRARY" steht, wo 
er sie natürlich dann nicht findet. 

Um die Anwendung zu demonstrieren ist hier noch ein kurzes Beispiel¬ 
programm abgedruckt, das einige Blockgraphik- Prozeduren benutzt. Es 
läßt einen kleinen Ball auf dem Bildschirm hin und herfliegen. Im 
Aufbau entspricht es dem Basic-Beispielprogramm auf Seite 10 des 
"Applesoft Basic Programming Reference Manual". 


Progr amm " LORES - DIVIO " 

PROGRAM LORESDEMO; 

<*$U LORES.LIB.CODE *) <# NAME DES UNIT-FILES «) 
USES LORES; <# LIBRARY LORES WIRD BENUTZT #> 

VAR 

I,X,Y,NX,NY,XV,YV:INTEGER; 

BEGIN 
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GR; 

COLOR<10); 

HLIN(0,39,0); 

VLIN< 0,47,39); 

HLINC39,0,47); 

VLINC 47,0,0); 

I :=0; 

X:»1; Y:«5; 

XV:= 2; YV:=1; 

REPEAT 

NX:=X+XV; 

NY;-Y+YV; 

IF NX > 38 THEN BEGIN 

NX:=38; XV:=-XV; 
END; 

IF NX < 1 THEN BEGIN 

NX: 11 1; XV: 3 -XV; 
END; 

IF NY > 46 THEN BEGIN 

NY:=46; YV:=-YV; 
END; 

IF NY < 1 THEN BEGIN 

NY:=1; YV:=-YV; 
END; 

COLOR (13); 

PLOT < NX,NY); 

COLOR (0); 

PLOT (X.Y); 

X:=NX; Y:=NY; 

I : ** I +1; 

UNTIL I > 1000; 

READLN; 

TEXT; 

END. 


. <4 Shapes in der Lo res—Graphik 

In diesem Kapitel soll noch eine kurze Erweiterung der Blockgraphik 9 
Möglichkeiten besprochen werden. Es handelt sich um die Darstellung 
von Shapes auf dem Bildschirm. Größere Objekte brauchen damit nicht 
mehr Punkt für Punkt in die Graphik gezeichnet werden. Sie entpricht 
der "DRAWBLOCK" Prozedur aus der "Turtlegraphics“ Unit. 

Dazu ist es nötig, das zu zeichnende Objekt in ein Feld zu fassen. 
Die Große des Feldes wird durch die Höhe und die Breite der Figur 
bestimmt. Da es in Pascal nicht möglich ist, Felder mit variabler 
Große an eine Prozedur zu ubergeben, muß die Prozedur auf eine be- 
stimmte Größe festgelegt werden. 

Jedes Element in dem Feld gibt einen Punkt wieder. Der Feldindex 
bestimmt seine Position auf dem Bildschirm. Da ein Punkt 16 Farben 
annehmen kann, hat jedes Feldeleraent den Wertebereich 0 bis 15. 

Ein Prozedur, die das Objekt auf den Bildschirm bringt ist einfach. 
Das o.g. Feld wird Zeile für Zeile durchgegangen und die Punkto in 
der entsprechenden Farbe mit dem “PL0T M -Befehl ausgegeben. Dieser 
Vorgang ist leider nicht schnell genug, um Figuren in einer annehm¬ 
baren Zeit zu bewegen. Sie vereinfachen aber die Ausgabe von farbi¬ 
gen Symbolen auf dem Bildschirm ungemein. 
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Das hier abgedruckte Programm bringt einen farbigen Ball fünfzigmal 
an zufälligen Positionen auf den Bildschirm und untermalt das Ganze 
mit Tönen. 

Damit das Programm läuft, ist wieder ein Lauf des Linkers nötig. Es 
ergibt sich dabei der folgende Dialog: 


LINKING... 


APPLE PASCAL LINKER C 1. U 
HOST FILE? <ret> 

OPENING SYSTEM.WRK.CODE 
LIB FILE? LORES.LIB 
OPENING LORES.LIB.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING LORESSHA 
READING LORES 
OUTPUT FILE? <ret> 

LINKING LORES tt 7. 
LINKING LORESSHA tt 1 


Bild 4.4.1: Der Dialog beim Linkerlauf 


Ansonsten gilt auch hier das in Kapitel 4.3 zum Linkerlauf Gesagte. 

Wichtige Typen, Variablen und Prozeduren 

"SHAPEHOEHE" : Konstante, die die Höhe des Shapes 
angibt. 

"SHAPEBREITE” : Konstante, die die Breite des Shapes 
angibt. Soll mit einer anderen 
Shapegröße gearbeitet werden, so müssen 
nur diese zwei Konstanten geändert werden. 

"SHAPETYP“ : Feld, das die Definition des Objekts 
enthalten soll. 

"SHAPE" : Variable vom Typ M SHAPETYP H . Enthält das 
Aussehen des Balls. 

"DRAWSHAPE (X,Y:INTEGER)" : Prozedur, die das Feld 

"SHAPE" plottet. X und Y 
geben die Koordinaten der 
linken oberen Ecke der Figur an. 
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Pr ogr axnm " LORES - SHP " 

■C$S+> 

-C$R-> < Rangechecking ausschalten, um Programm schneller zu machen > 
program lores_shapes; 

uses applestuff, <$U LORES.LIB.CODE> lores; < Unit benuzten > 

const shapehoehe = 5; 
shapebreite = 5; 

type shapetyp = array CI..shapehoehe,1.«shapebreiteD of 0..15; 

var shape: shapetyp; 
i,x,y: integer; 

procedure initshape; < definiert Aussehen des Shapes > 

var i:integer; 

begin 

shapeCl,13:=0; shapeCl,23:=0; shapeCl,33:=3; shapeCl,43:=G; shapeCl,53: a O; 
shapeC2,13:-0; shapeC2,23:-4; shapeC2,33:=4; shapeC2,43t»4; shapeC2,5Dt=0; 
for is= 1 to 5 do 
shapeC3,i3: s 6; 

shapeC4,13:=0; shapeC4,23:=l; shapeC4,33:=l; shapeC4,43: s l; shapeC4,53s s O; 
shapeC5,13:~0; shapeC5,23:=0; shapeC5,33:«8; shapeC5,43r=0; shapeC5,53: & 0; 
end; 

procedure drawshape (x,y:integer); < zeichnet Shape > 

var i,j:integer; 

begin 

for i:= 1 to shapehoehe do 
for j:= 1 to shapebreite do 
begin 

color(shapeCi,j3); 
plot(x+j-l,y+i-l>; 
end; 

end; 

begin 

randomize; 

initshape; 

gr; 

i:=0; 

repeat 

x:=random mod 36; 
y:=random mod 44; 
drawshape(x,y); 
noteCrandom mod 51,10); 
i:=i+l; 
until i>50; 
read ln; 
text; 
end« 
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4L. S Editor-Marken verändern 

m an cd 1 Öschon 

Man kann mit dem Pascal-Editor Marken ("raarkers“) setzen und ihnen 
einen Namen geben. Sie können darin als Sprungziele innerhalb eines 
Textes benutzt werden. Man setzt sie mit "S M". Was ist aber, wenn 
man eine Marke nicht mehr braucht, oder sich verschrieben hat ? Nach 
dem Drücken von <ret> bei der Markeneingabe versagt der Editor. Man 
kann Marken nur dann löschen oder ändern, wenn man schon zehn Marken 
gesetzt hat, und Platz für eine neue machen muß. 

Aus Kapitel 2.8 wissen wir, daß alle Informationen, die der Editor 
braucht (also auch die Namen und Positionen der Marken) in den er¬ 
sten zwei Blöcken eines jeden Textfiles abgespeichert werden. Mit 
diesem Wissen ist es einfach, ein Programm zu schreiben, das diese 
Informationen liest, anzeigt und verändern kann. Unser Utility wird 
dann nach dem Verlassen des Editors aufgerufen und arbeitet mit ei¬ 
nem Textfile. 

Man hat einige Punkte beim Verändern der Marken zu beachten. Zu¬ 
nächst müssen die Marken aufeinander folgen. Es kann also nicht z.B. 
die erste und zweite Marke benutzt und die dritte unbenutzt sein, 
wenn noch die vierte benutzt wird. Eine unbenutzte Marke wird ge¬ 
kennzeichnet, indem das erste Zeichen ein CHR(O) ist. 

Nun also zum Programm selbst. Zuerst wird mittels der Struktur aus 
Kapitel 2.8 die gewünschten Informationen für ein Textfile eingele¬ 
sen. Werte wie rechter, linker Rand etc. werden am Bildschirm ange¬ 
zeigt, wobei das Layout dem des Editors entspricht. Dann folgen die 
zehn Marken. Unbenutzte Marken werden durch "UNUSED" gekennzeichnet. 

Der Benutzer hat nun die Möglichkeit, eine Marke zu verändern. Durch 
Auswahl über die Ziffern 0 bis 9 kann er einen neuen Namen für die 
Marke eingeben, der maximal 8 Zeichen lang sein kann und durch <ret> 
abgeschlossen wird. Gibt er nur <ret> ein, so wird die Marke ge¬ 
löscht. Alle nachfolgenden Marken werden aufgrund der obigen Überle¬ 
gungen um einen Platz nach vorne geschoben. Gibt er <esc> <ret> ein, 
so bleibt alles beim alten. Logischerweise wird das Verändern von 
unbenutzten Marken verweigert. 

Mit "Q" wird das Programm verlassen. Der erste Block des Textfiles 
wird mit den neuen Editor-Inforroationen überschrieben, und wir kön¬ 
nen den Text nun mit den veränderten Marken editieren. 

Achtung: Falls der Leser nicht mit dem normalen Pascal-Editor arbei¬ 
ten sollte, kann es sein, das sein Editor die ersten zwei Blöcke 
eine8 Textfiles für andere Informationen benutzt. "MARKERCHANGE" ar¬ 
beitet dann wahrscheinlich nicht korrekt. 

Wichtige Variablen 

"TEXTINFO" : Strukturierter Record zur Aufnahme der 

Informationen am Beginn eines Textfiles 

Wichtige Prozeduren 

"LESEINFO" : Fragt nach dem Namen des Textfiles und liest 

mittels der Prozedur "BLOCKREAD" die 
Variable "TEXTINFO" ein. Bei einem Fehler 
wird "LESEINFO" wiederholt. 
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"GEBEAUS" : Gibt die Variable "TEXTINFO" aus. Das 

Schirmlayout entspricht dem des Editors. 

Iro Anschluß folgen die 10 Marken. 

"VERAENDERE" : Liest Benutzerkommandos ein und führt sie 

aus, bis ein "Q" zum Beenden eingegeben wird. 
"SCHREIBEINFO" : Schreibt textinfo in den ersten Block des 
Textfiles zurück. 

Kommandos: 

"0" - "9" : Marke auswählen 

dann <esc> <ret> : Alles beim alten lassen 
<ret> : Marke löschen 

Texteingabe : Neuer Name der Marke 
"Q" : Beenden des Programms (Quit) 


Programm " MARKERS . TTEIXIT ” 

program markerchange; 

type datum = packed record 

monat : 0..12; 
tag : 0.•31; 
jahr s 0.'. 99; 
endj 

var textinfo: packed record 


unusedl 


packed arrayCO..33 of char; 

markername 


packed arrayCO..9,0..73 of char; 

unused 2 

: 

packed arrayCO..93 of char; 

markeradresse 


packed arrayCO..93 of integer; 

autoindent 

: 

integer; 

filling 


integer; 

tokendef 


integer; 

leftmargin 

: 

integer; 

rightmargin 


integer; 

paramargin 

: 

integer; 

commandch 

i 

char; 

datecreated 


datum; 

lastused 


datum; 

unusedS 

t 

packed arrayCO..3793 of char; 


end; 

txtfile : file? 

Home : char; 
esc : stringC13; 
filename: string; 

procedure leseinfo; < liest Textinformationen ein > 
var ok: boolean; 

duraray: integer; 
begin 

write(home); 

writelnf'MARKERCHANGE 7 ); 
writelnC 7 -'); 

writeln ( 7 Versendern und loeschen von Markern 7 ); 

writelnC 7 in Editor-Texten. 7 ); 

writeln; 

repeat 

writeC 7 Filename (ohne .TEXT) : 7 ); 
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readlnCfilename); 

filename:«concat(filename,'.TEXT"); 
ok: s true; 

m-> 

reset(txtfile,filename); 

<*I+> 

if ioresultOO then begin 

writelnC'Kann '* * ,filename,'' ' nicht.oeffnen'); 
writeln('Bitte nochmals . 
ok:=false; 
end; 

until ok; 

dummy:=blockread(txtfile,textinfo,1,0); 
closeCtxtfile); 
end; 

procedura gebeaus; < gibt Textinformationen aus > 

var i:integer; 

begin 

write(home); 
with textinfo do 
begin 

writeC'Auto indent 

if autoindent>0 then writelnC'True') 

eise writelnC'False'>; 
writeC'Filling '); 

if filling >0 then writelnC'True') 

eise writelnC'False'); 

. writelnC'Left margin ',leftmargin); 
writelnC'Right margin ',rightmargin); 
writelnC'Para margin ',paramargin); 
writelnC'Command ch ',commandch); 
writeC'Token def 

if tokendef >0 then writelnC'True') 

eise writelnC'False'); 

writeln; 

with datecreated do 

writelnC'Date Created ',monat,' -' »tag,,jahr); 
with lastused do 

writelnC'Last Used ',monat,tag,jahr); 
writeln; 

for is=D to 9 do 
begin 

writeC'Marker No. ',i,' : '); 

if markernameCifOD « chr(0> then writelnC' Unused') 

eise writelnC'>',markernameCiD,'<'); 

end; 

end; 

end; 

procedure veraendere; < laesst der Benutzer Marker aendern oder loeschen > 
var chschar; 

i,no:integer; 
newnamesstring; 
begin 
repeat 

gotoxyC0,22); 

writeC'<0..9> Marker aendern <Q> Beenden ',chrC8)); 
readCch); 

if ch in C'0',.'9'3 then 
with textinfo do 
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begin 

no:=ord(ch)-48; 

if markernameCno 1 03=chr(0) then 
begin 

gotoxy< 0 , 22 ); 

writeC'Marker ist unbenutzt. Bitte Taste. ' t chr< 8 >); 
read(ch); 
end 
eise 
begin 

gotoxy( 0 , 22 ); 

write('<esc><ret> zurueck <ret> loeschen'); 

gotoxy( 16 ,ll+no )5 

write(' 

gotoxy(16,11+no)} 
readln(newname)j 
if newname®'' 
then begin 

for i:=no to 8 do 
begin 

markernameCiD:=markernameCi+13 ; 
gotoxy(15,ll+i); 
if markernameCi t 03 = chr(O) 
then writeln(' Unused ') 
eise writeln('>' itnarkemameCiD, '<') ; 

end; 

markernameC9,03 !° chr(O); 
gotoxy<15,20); 
writeln(' Unused ') 
end 

eise if newnaroeOesc 
then begin 

newname:«concat(newname,' '); 

for i: a 0 to 7 do 

markernameCno,13s»newnameCi+13; 

end; 

gotoxy(15,11+no); 
if markernameCno,03 - chr(O) 
then writeln(' Unused # ) 
eise writelnC' >' ,markernameCno3 ,'<* >; 

end; 

end; 

until ch in C'Q't'q'3; 
write(chr< 8 ),' Quit'); 
end; 

procedure schreibeinfo; { schreibt Textinformationen zurueck auf die Diskette > 

var dummy:integer; 

begin 

resetCtxtfile,filename); 
dummy:=blockwrite(txtfile,textinfo,l, 0 ); 
close(txtfile,lock); 
end; 

begin 

esc:=' '; 

escC13:=chr<27); 

hcme:=chr< 12 ); 

leseinfo; 

gebeaus; 

veraendern; 
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schreibeinfo; 

end. 


4.3 W x q groß x s t- mein Text ? 

Neben dem Inhalt und dem Aussehen eines Textes ist noch seine Größe 
ein entscheidendes Merkmal. Wer einen Artikel, ein Buch oder sonst 
ein Schriftstück erstellt, der benötigt diese Information, um abzu¬ 
schätzen, ob er Anforderungen an den Umfang seines Textes erfüllt 
hat, oder z.B., wieviele Seiten der Text auf dem Drucker ergeben 
wird. Bei vielen Texteditoren gibt es die Möglichkeit, sich diese 
Werte ausgeben zu lassen; beim Pascal-Editor nicht. Man kann nur 
feststellen, wieviel Speicherplatz der Text benötigt und wieviel 
Diskettenplatz. 

Die besten Informationen über die Größe eines Textes bieten wohl die 
Angaben, wieviele Zeichen, Wörter und Zeilen der Text enthält. Aus 
der Zeilenzahl läßt sich dann noch errechnen, wieviele Seiten der 
Text ergibt. Das folgende Programm errechnet diese Werte und gibt 
sie aus. 

Die Realisation ist relativ einfach. Wir benötigen zunächst den Na¬ 
men des Textfiles, das bearbeitet werden soll. Dann müssen wir 
wissen, was gezählt werden soll. Falls man nur die Zeilenzahl wissen 
will ist es nicht nötig, die Wörter zu zählen, wobei dies ja auch 
den Programmablauf verlängern würde. Schließlich wird noch ein Wert 
benötigt, der angibt, wieviele Zeilen auf eine Druckseite kommen, um 
die Seitenanzahl durch Division zu berechnen. 

Das Programm öffnet nun das Textfile und liest den Text Zeile für 
Zeile. Daraus ergibt sich automatisch die Anzahl der Zeilen, da ja 
nur bei jedem Lesevorgang ein Zähler um 1 erhöht werden braucht. 

Auch das Zählen der Zeichenanzahl ist einfach. Sie ergibt sich aus 
den Summe der Länge der Zeilen. Hierbei werden natürlich Leerstellen 
mitgezählt, was allerdings unerheblich ist. Falls die Wörter gezählt 
werden, ist es möglich, auch noch diesen kleinen Fehler zu beheben. 
Wenn man pro Wort einen Leerraum rechnet, so kommt man der wirklich¬ 
en Zeichenzahl ohne Leerstellen durch die Berechnung "Zeichenzahl 
minus Anzahl der Wörter" ziemlich nahe. Unser Programm führt diese 
Berechnung automatisch durch, falls Zeichen und Wörter gezählt wer¬ 
den. 

Am "aufwendigsten" ist das Zählen der Wörter. Ein Wort wird defi¬ 
niert als eine Zeichenfolge, die von Leerstellen begrenzt ist. Das 
Programm nimmt also die gerade eingelesene Zeile, und sucht das 
erste Zeichen, das keine Leerstelle ist. Mit diesem Zeichen beginnt 
ein Wort, und wir können den Wortzähler um 1 erhöhen. Dann wird das 
nächste Leerzeichen gesucht, das ja ein Wort beendet. Da auch mehr¬ 
ere Leerstellen zwischen Wörtern stehen können, beginnt nun wieder 
die Suche nach einem Zeichen, das keine Leerstelle ist. Dies wieder¬ 
holt sich bis zum Ende der Zeile. 

Diese Methode ist zwar sehr einfach, sie wird aber nicht immer die 
korrekte Anzahl der Wörter ergeben. Wenn nämlich ein Wort an Ende 
einer Zeile getrennt wurde, so wird es zweimal gezählt. Einmal am 
Ende der einen Zeile und einmal am Anfang der nächsten. Da aber die¬ 
ser Fehler nur eine geringe Abweichung ergibt, und nie die genaue 
Wörteranzahl gebraucht wird, können wir ihn in Kauf nehmen und brau¬ 
chen das Programm nicht unnötig zu vergrößern und zu verlangsamen. 
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Falls die Seitenanzahl benötigt wurde» so wird sie aus den mitge¬ 
zählten Zeilen mittels der oben genannte Division ermittelt und aus¬ 
gegeben. * 

Schließlich bauen wir in das Programm noch eine optische Kontrolle 
ein, damit erkennbar ist» daß daß Programm am Arbeiten ist. Jedes¬ 
mal, wenn eine Zeile eingelesen wird, wird auf dem Bildschirm ein 
Stern ("#") ausgegeben. Sind fünf Zeilen eingelesen, so werden die 
Sterne gelöscht, und der Vorgang beginnt neu. Damit ergibt sich ein 
"Pulsieren" der Anzeige. 

Es ergibt sich das folgende Listing, wobei die Prozeduren 
"FRESET","FREADLN" und "FCLOSE" aus Kapitel 2.9 übernommen wurde. 
Ohne sie benötigt das Programm weit mehr Zeit; der Leser kann es 
ausprobieren, indem er die Standardprozeduren verwendet. 

Wir hatten aber schon in Kapitel 2.9 bemerkt, daß die dort abgedruk- 
kten Prozeduren nur auf einen Text mit bekannter Länge angewandt 
werden können» Sie hatten den Nachteil, daß das Ende des Textes 
nicht erkannt wurde. Beim Zählen eines beliebigen Textes ist seine 
Größe natürlich nicht vorher bekannt, um wir müssen die Prozeduren 
etwas erweitern. 

Wir führen zwei neue Werte ein, die mit einem Textfile Zusammenhäng¬ 
en. Es handelt sich um die Anzahl der Blöcke, die das File auf der 
Diskette belegt, und die Anzahl der gültigen Zeichen im letzten 
Block. Wie wir diese Informationen erhalten wird weiter unten be¬ 
schrieben . 

Mit diesen zwei Werten führen wir Änderungen an "FREADLN" durch. Wir 
wollen erreichen, daß das Ende eines Textes erkannt wird. Damit nach 
dem Aufruf der Prozedur bekannt ist, ob schon das Ende erreicht ist, 
wird an "FREADLN" die Boolean-Variable "EF" übergeben. Sie hat die 
gleiche Funktion wie die "EOF"-Variable im Zusammenhang mit dem 
Standard-"READLN". Wenn bereits alle Textzeilen eingelesen sind, 
wird sie auf "TRUE" gesetzt. Hier ist zu bemerken, daß der dann ge¬ 
lesene String ungültig ist. 

Das Ende des Textes wird auf zwei Arten erkannt. Zunächst, wenn ein 
neuer Block in den Puffer "SEITE" geladen werden soll. Durch Ver¬ 
gleichen mit dem Wert, der angibt, wieviele Blöcke das File groß 
ist, wird festgestellt, ob schon der letzte Block eingelesen war. In 
diesem Fall ist das Ende des Files erreicht. 

Ist der Block, der sich in "SEITE" befindet der letzte Block im 
File, so wird geprüft, ob der Seitenzeiger schon über das Ende des 
Textes hinauszeigt. Dies ist der Fall, wenn er größer ist als, der 
Wert, der angibt, wieviele Bytes im letzten Block gültige Textzei¬ 
chen sind. 

Der Text wird also zeilenweise mit "FREIADLN" eingelesen, solange bis 
M EF" "TRUE" wird. Dann ist das Programm fertig und kann die Ergeb¬ 
nisse ausgeben. 

Nun muß noch beschrieben werden, wie wir die Wert für die Anzahl der 
Blöcke und der gültigen Zeichen im letzten Block erhalten. Dazu ist 
das Wissen aus Kapitel 2.2 über das Directory nötig. 

Für jedes File sind im Directory die zwei Werte vermerkt, die wir 
benötigen. Die Anzahl der Blöcke ergibt sich aus der Differenz 
zwischen der Nummer des Anfangs- und des Schlußblocks des Files. Der 
zweite Wert steht direkt im Directory. 
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Wir brauchen also nur das entsprechende Directory einiesen, und die 
zwei Werte setzten. Wir wissen allerdings nicht, von welchem Lauf¬ 
werk wir das Directory lesen müssen. Dies hängt direkt von dem File¬ 
namen ab, den der Benutzer eingibt. 

Es bleibt uns nichts anderes übrig, als die Diskette zu suchen. Wir 
berücksichtigen dabei die Laufwerke 4 und 5. 

Zunächst wird der eingegebene Filename untersucht. Ist sein erstes 
Zeichen ein ’*#", so muß darauf eine Unit-Nummer folgen. Ist diese 4 
oder 5, so haben wir das gesuchte Laufwerk schon gefunden. Kommt 
eine nicht erlaubte Unit-Nummer vor, so wird das Programm mit einer 
Fehlermeldung abgebrochen. 

Weiterhin kann es sein, daß ein Volumename angegeben worden ist. Wir 
lesen nun die Directorys aus beiden Laufwerken ein ( zunächst von 
Unit 4, dann eventuell von Unit 5), und vergleichen den darin vor¬ 
kommenden Volume-Namen mit dem eingegebenen. Stimmen sie überein, so 
haben wir das Laufwerk gefunden. Wird der angegebene Volume-Name 
nicht gefunden, so bricht das Programm wieder mit einer Fehlermel¬ 
dung ab. 

Es gibt noch den Fall, daß gar kein Volume-Name angegeben worden 
ist. Nun wird vor den eingebenen Filename der Volume-Name der 
Pref ix-Disket te gesetzt. Wir erhalten ihn über eine an "PEEK"/"POKE" 
angelehte Vorgehensweise, die in Kapitel 3.3 näher erläutert ist. 
Daraufhin gehen wir wie oben vor. 

Wir wissen zu diesem Zeitpunkt, in welchem Laufwerk < a auf welcher 
Unit) sich der zu zählende Text befinden müßte. Ob er dort auch 
wirklich ist, prüfen wir nach, indem wir das Directory nach dem 
Filenamen durchsuchen.- Finden wir den Text, so können wir die zwei 
für "FREADLN" benötigten Werte setzen, andernfalls wird das Programm 
mit einer Fehlermeldung verlassen. 

Wir unschwer zu erkennen ist, ist dies ein recht komplexer Aufwand. 
Bei der Verwendung der Standard-Prozedur "READLN" wird er vom Be¬ 
triebssystem übernommen. Da wir hier nicht direkt eingreifen können, 
müssen wir diesen Teil neu schreiben. Im Grunde genommen ist er auch 
noch nicht vollständig korrekt. So fehlt z.B. die Erkennung des 
"Root"-Volumes <"#"> und eine Behandlung aller möglichen Fehleinga¬ 
ben. Dieser Aufwand ist aber durch den enormen Geschwindigkeitsvor¬ 
teil von "FREADLN" sich gerechtfertigt. 


Prog ramm " COUN I T* - TEXT ’* 

program countit; 

type 

vname=stringC73; -C Ein Volumename > 
fname-stringCiSD; { Ein Filename > 
daterec = packed record < das Datum > 
month: 0.. 12; 
day: 0..31; 

year: 0..100; 
end; 

fkind « (vol,bad,code,text,info,dats,graf,foto,secr); < moegliche Filetypen } 
direntry = record < ein Eintrag im Directory > 

firstblock: integer; < Block, bei dem das File anfaengt > 
lastblock: integer; < Block, bei dem das File endet > 
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case filekind: fkind of 

< nur beim Eintrag #0 > 

vol,secrs (diskvol: vname; { Name der Diskette > 
blockno: integer; < Anzahl der Bioecke > 
filenosinteger; < Anzahl der Files > 
accesstimes integer; < unbenutzt > 
lastboot: daterec); { Datum, an dem die > 

< zuletzt benutzt wurde > 

< Normale File-Eintraege > 
bad,code,text, 

info,data,graf, 

foto: (filename: fnarrte; < Filename > 

endbytes: 1..S12; < Bytes im letzten Block > 
lastaccess: daterec); < Datu, an dem das File > 
end; < geschrieben wurde > 

direc = arrayCO. .773 of direntry; < Directory mit 78 Eintraegen > 

var 

< Variablen, die von "FRESET","FREADLN" und "FCLOSE" benutzt werden > 

f:file; 

seitespacked arrayCO..10233 of char; 
bufferpointer:integer; 
blockpointer:integer; 

leer:stringC1203; 

< Variablen, zum Festlegen des Fileendes > 

blockno,lastbytes:integer; 
filenamesstring; 

< Variablen zum Zaehlen > 

zei1en,Zeichen,woerter,seiten:boolean; 
zeilenno,zeichenno,wortno:integer; 
seitenzeilen:integer; 

procedure inputoptions; < Eingeben, was gezaehlt werden soll > 

var ch:char; 

begin 

writelnC'-'); 

writelnr COUNT'); 

writeln; 

write('Zeilen zaehlen >'); 
read(ch); 

if ch in C'N','n'O then zeilen:~false 
eise zeilen:=true; 

writeln; 

writeln; 

write('Zeichen zaehlen >'); 
read(ch); 

if ch in C'N','n'3 then Zeichen:»false 
eise zeichen: s true; 

writeln; 

writeln; 

writeC'Hoerter zaehlen >'); 
read(ch); 

if ch in C'N','n'3 then woerter:=false 
eise woerter»“true; 

writeln; 

writeln; 

writeC'Seiten errechnen >'); 
read(ch); 
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if ch in C'N','n'3 then seitens=false 
eise seiten:=true; 

writeln; 
writeln; 
if seiten then 
begin 

write('Zeilen pro Seite >'); 
readln(seitenzeilen); 
end; 

writeln; 

end; 

procedure inputname; < Filenamen eingeben > 
var prefix: record case boolean of 

true: (adresse:integer )5 
false: (namer'Vname) 
end; 

i:integer; 

begin 

writeC'Welcher Text >'); 
roadlnCfilename); 

if <pos(':',filename)=0> and (filenameC13<>'#') then 

begin < Falls keine Volume-Angabe, dann Prefix einsetzen > 
prefix.adresse:»-22008; 

filename:=concat(prefix.name*,':',filename); 
end; 

for i:=l to length(filename) do < In Grossbuchstaben umwandeln > 
if ord(filenameCiü)>95 then 

f ilenameCi3: : =chr(ord(f ilenameCiH)-32); 
writeln; 
end; 

procedure findefile; < Suchen, in welchem Laufwerk sich das File befindet > 
var filensstring; 

{ Variablen zum Einlesen des Oirectorys > 
directory:direc; 
unitno:integer; 

procedure lese^dir; < liest das Directory von der Unit #4 ein > 
var io:integer; < Bei einem Disketten-Fehler wird das Programm verlassen > 

begin 
<*I-> 

unitread(unitno,directory,sizeof(directory), 2 ); 

<*I+> 

io:=ioresult; 
if io <>0 then 
< Fehler ! > 
begin 

writeln(chr(7)); < Beep > 
writeln('Fehler #',io); 

writelnC'Directory von Unit unitno,' nicht zu lesen'); 
exitCprogram) 
end; 

end; 

procedure findevolume; < Sucht Laufwerk indem der Volumename der > 
var volume:string; < Diskette mit dem angebenen verglichen wird > 

begin 

if filenameClD='#' 
then 

begin < Unit-Angabe anstatt Volume > 
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if pos(' s',filenameX>3 then < Nur Units 4 & 5 erlaubt > 
begin 

writeln( / Fehler> Falsche Unitangabe'); 
exit(program); 
end; 

unitno:=ord(fi1enameC23)-48; 

if not (unitno in C4,53) then < Nur Units 4 & 5 erlaubt > 
begin 

uriteln( / Fehler> Falsche Unitangabe'); 
end; 

lese_dir; < Directory einiesen > 
end 
eise 
begin 

volume:°copy(filename,l,pos(',filename)-l); < gesuchtes Volume > 

unitno:=4; < Zunaechst auf Unit 4 nachschauen > 

lese_dir; 

if directoryC03.diskvol<>volume then 
begin 

unitno:=5 5 i Dann auf Unit 5 nachschauen > 
lese_dir; 

if directoryCOD.diskvolOvolume then 
begin -C Nicht gefunden > 

writelnC'Fehler: Volume nicht vorhanden')) 
exit(program); 
end; 

end; 

end; 

end; 

procedure findeentry; < Festellen, in welchem Directoryeintrag > 
var filen:string; < sich die Angaben zu dem File befinden > 

i:integer; 

begin 

filen:=copy(filename,pos(':',filename)+l, 

lengthCfilename)-po5(',filename)); 

i:= 0 ; 
repeat 
ii*»i+4 { 

until <directoryCi3.filename=filen) or (i>directoryC03.fileno); 
if i>directoryC03.fileno then 
begin 

writeln('Fehler> File nicht vorhanden'); 
exit(program); 
end; 

< Ende des Textes feststellen > 

b 1 ock no:=directoryCi3. 1 a st b 1 ock-directoryCi3.first b 1 oc k; 

1 astbytes:=directoryCi3.endbytes; 
end; 

begin 

findevolume; 
findeentry; 
end; 

procedure fresetCmstring); < Oeffnet das File mit dem Namen 'N' > 

var dumtny:integer; 

begin 

reset(f,n); 

dummy:=blockread(f,seite, 2,2) ; < Erste Seite einiesen ) 

bufferpointer:=0; < Zeichenzeiger auf das erste Zeichen setzen > 
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blockpointer:=4; { Blockzeiger auf die naechsfce Seite im > 

end; -C File setzen > 

< Den String 'S' aus dem File lesen > 

< 'ef # wird 'true', wenn das Ende des Textes erreicht ist > 
procedure freadln(var s:string; var ef:boolean); 

var n,no,start2,dummy: integer; 

begin 
s:="; 
ef s=false; 

if (seiteCbuff erpointerl]=chr(0>) or 

(bufferpointer=1024) then i Eventuell naechste Seite einiesen > 
begin 

if blockpointer>=blockno then < Fileende erreicht > 
begin 

ef: = true; 
exitCfreadln); 
end; 

dunwny :=b lock read (f ,seite,2,blockpointer>; 
blockpointer:=blockpointer+2; 
buf f erpointer:=0; 
end; 

if (blockpointer>=blockno) and (bufferpointer>= lastbytes) then 
begin < Textende erreicht > 
ef:=true; 
exit(freadln); 
end; 

if seiteCbufferpointerD=chr(16) < OLE !> 
then begin 

buf f erpointers =buf f erpointer+1; 

m=ord (seiteCbuf ferpointer3)-32; < Anzahl der Blanks holen > 
buf f erpointer j =buf f erpointer+1; 

if n>0 then s*-copy(leer,l,n>; i Blank an den String setzen > 
end; 

nos=scan(1024,=chr(13),seiteCbufferpointerD); < Nach CR suchen > 
if no>0 then 
begin 

start2:=length(s); 

s:=concat(s,copy(leer,l,no)); -C String zunaechst mit Blanks fuellen } 
moveleft(seiteCbufferpointerD,sCstart2+13,no); i Tatsaechliche Zeichen > 
bufferpointers=bufferpointer+no+1; < in den String bringen, und > 

end < Zeichenzoiger korrigieren > 

eise buff erpointer:=buf f erpointer+1; 

end; 

procedure fclose; < File schliessen > 
begin 

close(f); 
end; 

procedure count; < Zaehlt Zeilen, Zeichen und Woerter > 
var s:stringC1203; 

end o f fi1e:boolean; 
zaehler,zeiger,i:integer; 
begin 

< Werte auf 0 setzen > 

zeilenno:=0; 

zeichennos=0; 

wortno:=0; 

zaehleri=0; 

repeat 
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freadln(s,endoffile); 

< Bildschirmanzeige > 
if zaehler=5 
then begin 

for i:=l to 5 do 

writeCchrCö),' '»chrCÖ)); 
zaehler:= 0 ; 
end 

eise begin 

writeC '*')5 
zaehlerj=zaehler+l; 
end; 

if not endoffile then 
begin 

zeilenno:=zeilenno+l ; { Zeile gezaehlt > 
if Zeichen then 

zeichenno:=zeichenno+length(s)| < Zeichen gezaehlt > 

if woerter then 

if scanClengthCs),<>' ',s) <> lengthCs) then 
begin 

zeiger;=l; 
repeat 

{ Zeiger auf Wortanfang setzen > 

zeiger!=zeiger+scanClengthCs)-zeiger,<>' ' »sCzeigerJ){ 
< Wort zaehlen > 
if zeiger<=length(s) then 
wortno:=wortno+l; 

{ Zeiger auf Wortende setzen > 

zeiger: *=zeiger+scanC lengthCs)-zeiger' ,sCzt?iger3); 
until zeiger> c lengthCa); 
end; 

end; 

until endoffile; 

t Bildschirmanzeige korrigieren > 
if zeiger >0 then 

for i:= 1 to zaehler do 
writeCchrCÖ),' # ,chr( 8 )); 
writeln; 
end; 

procedure giveout; -C Ergebnisse ausgeben > 


begin 

writelnCchrC12)); 

writelnC'-'); 

writeln('Ergebnis fuetf '»filename); 

writelnC'-' >; 


writeln; 

writelnC'Zeilen : ',zeilenno); 
writeln; 
if Zeichen then 
begin 

writeC'Zeichen s '»zeichenno); 

if woerter then writelnC' Korrigiert : ',zeichenno-wartno) 
eise writeln; 

end; 

writeln; 
if woerter then 
begin 

writelnC'Woerter : wartno); 

writeln; 
end; 
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if seiten then 

uriteln('Seiten ; ',(zeilenno div seitenzeilen)+1); 

end; 

begin 

{ 'leer' initialisiern ( 'leer' kann nicht als > 

< Konstante definiert werden) > 

leer:=' '5 

leer: = concat(leer,leer,leer); 

■C Eingaben > 
inputoptionsj 

if (zeilen=false) and <zeichen=false) and 
(woerter-false) and (seiten=false) then 
exit(program); { Falls alle Fragen mit 'n' beantwortet wurden > 
inputname; 
f File suchen } 
findefile; 

< File oeffnen und zaehlen > 
f reset(filename); 

count; 
fclose; 

< Ergebnisse ausgeben > 
giveout; 

end. 


Die Benutzung des Programmes ergibt sich von selbst. Man startet es, 
gibt die erwarteten Eingaben und kann dann die Werte ablesen. Falls 
man das Programm aus Versehen gestartet hat, so gibt man einfach 
viermal hintereinander ein "n" ein, und das Programm wird 
abgebrochen. 

Da nach dem Programmlauf wieder die Kommandozeile von POS erscheint, 
sollte man sofort die Werte ablesen. Ein <ret> danach z.B. löscht 
bekanntlich den Bildschirm und damit auch die Informationen. 

Wichtige Variablen und Prozeduren 

"ZEILEN","ZEICHEN", 

"WOERTER","SEITEN" : Boolean-Variablen, die angeben, ob Zeilen,. 

Zeichen etc. gezählt werden sollen 

”ZEILENNO", 

"ZEICHENNO"."WORTNO" : Zähler für Zeilen, Zeichen und Wörter 

"SEITEINZEILEN" : Gibt an, wieviele Zeilen sich auf einer 

Druckerseite befinden werden 

"INPUTOPTIONS" : Fragt den Benutzer, was gezählt werden 

soll 

Fragt nach dem Namen des zu zählenden 
Files, und hängt eventuell den 
Volumenamen des Prefix an 

Sucht das File auf beiden Laufwerken und 
stellt fest, wie groß das File ist, und 
wieviele Zeichen im letzten Block gültig 
s ind 

"FRESET"."FREADLN", 
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"INPUTNAME" 

"FINDEFILE" 
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"FCLOSE" 

"COUNT“ 

"GIVEOUT" 


Aus Kapitel 2.9 übernommen und 
modifiziert 

Zählt die gewünschten Werte für das File 
Gibt die Ergebnisse auf dem Bildschirm 
aus 
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